Changeset 77
- Timestamp:
- 08/02/12 22:47:10 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/write_field.f90
r76 r77 1176 1176 FieldVarId(NbField)%size=1 1177 1177 ALLOCATE(FieldVarId(NbField)%nc_id(1)) 1178 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval3d,2),dim3id)1178 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id) 1179 1179 ELSE IF (Field(1)%ndim==4) THEN 1180 1180 FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3) 1181 1181 ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size)) 1182 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval4d,2),dim3id)1182 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id) 1183 1183 ! status = NF90_DEF_DIM(ncid,'Q',size(field(ind_b)%rval4d,3),dim4id) 1184 1184 ENDIF … … 1285 1285 FieldVarId(NbField)%size=1 1286 1286 ALLOCATE(FieldVarId(NbField)%nc_id(1)) 1287 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval3d,2),dim3id)1287 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id) 1288 1288 ELSE IF (Field(1)%ndim==4) THEN 1289 1289 FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3) 1290 1290 ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size)) 1291 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval4d,2),dim3id)1291 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id) 1292 1292 ENDIF 1293 1293 … … 1495 1495 FieldVarId(NbField)%size=1 1496 1496 ALLOCATE(FieldVarId(NbField)%nc_id(1)) 1497 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval3d,2),dim3id)1497 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id) 1498 1498 ELSE IF (Field(1)%ndim==4) THEN 1499 1499 FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3) 1500 1500 ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size)) 1501 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval4d,2),dim3id)1501 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id) 1502 1502 ! status = NF90_DEF_DIM(ncid,'Q',size(field(ind_b)%rval4d,3),dim4id) 1503 1503 ENDIF … … 1616 1616 FieldVarId(NbField)%size=1 1617 1617 ALLOCATE(FieldVarId(NbField)%nc_id(1)) 1618 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval3d,2),dim3id)1618 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval3d,2),dim3id) 1619 1619 ELSE IF (Field(1)%ndim==4) THEN 1620 1620 FieldVarId(NbField)%size=size(field(ind_b)%rval4d,3) 1621 1621 ALLOCATE(FieldVarId(NbField)%nc_id(FieldVarId(NbField)%size)) 1622 status = NF90_DEF_DIM(ncid,' Z',size(field(ind_b)%rval4d,2),dim3id)1622 status = NF90_DEF_DIM(ncid,'lev',size(field(ind_b)%rval4d,2),dim3id) 1623 1623 ENDIF 1624 1624
Note: See TracChangeset
for help on using the changeset viewer.