Ignore:
Timestamp:
06/04/19 18:03:54 (5 years ago)
Author:
dubos
Message:

devel : introduced derived type to store cell bounds

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/base/field.f90

    r862 r879  
    133133        field(ind)%ndim=3 
    134134        field(ind)%dim3=dim1 
     135        field(ind)%dim4=1 
    135136      ELSE 
    136137        field(ind)%ndim=2 
     138        field(ind)%dim3=1 
     139        field(ind)%dim4=1 
    137140      END IF 
    138141     
Note: See TracChangeset for help on using the changeset viewer.