Ignore:
Timestamp:
05/04/19 22:27:37 (5 years ago)
Author:
dubos
Message:

devel : towards Fortran driver for unstructured/LAM meshes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/output/write_field.f90

    r533 r846  
    7070    USE mpipara 
    7171    USE netcdf_mod 
     72    USE grid_param 
    7273    IMPLICIT NONE   
    7374     CHARACTER(LEN=*),INTENT(IN) :: name_in 
    … …  
    8081       
    8182      IF (no_io) RETURN 
    82        
     83      IF (grid_type==grid_unst) RETURN 
     84 
    8385!$OMP BARRIER 
    8486!$OMP MASTER       
Note: See TracChangeset for help on using the changeset viewer.