Changeset 77

Timestamp:

08/02/12 22:47:10 (12 years ago)

Author:

ymipsl

Message:

changing 'Z' dimension into 'lev' in writefield

YM

File:

• codes/icosagcm/trunk/src/write_field.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/write_field.f90

@@ -1176 +1176 @@
           FieldVarId(NbField)%size=1
           ALLOCATE(FieldVarId(NbField)%nc_id(1))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval3d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id)
         ELSE IF (Field(1)%ndim==4) THEN
           FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3)
           ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval4d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id)
 !          status = NF90_DEF_DIM(ncid,'Q',size(field(ind_b)%rval4d,3),dim4id)
         ENDIF
@@ -1285 +1285 @@
           FieldVarId(NbField)%size=1
           ALLOCATE(FieldVarId(NbField)%nc_id(1))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval3d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id)
         ELSE IF (Field(1)%ndim==4) THEN
           FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3)
           ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval4d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id)
         ENDIF
 
@@ -1495 +1495 @@
           FieldVarId(NbField)%size=1
           ALLOCATE(FieldVarId(NbField)%nc_id(1))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval3d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id)
         ELSE IF (Field(1)%ndim==4) THEN
           FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3)
           ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval4d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id)
 !          status = NF90_DEF_DIM(ncid,'Q',size(field(ind_b)%rval4d,3),dim4id)
         ENDIF
@@ -1616 +1616 @@
           FieldVarId(NbField)%size=1
           ALLOCATE(FieldVarId(NbField)%nc_id(1))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval3d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id)
         ELSE IF (Field(1)%ndim==4) THEN
           FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3)
           ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size))
-          status = NF90_DEF_DIM(ncid,'Z',size(field(ind_b)%rval4d,2),dim3id)
+          status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id)
         ENDIF