- Timestamp:
- 08/02/12 22:33:19 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/netcdf_mod.F90
r44 r76 1 1 MODULE netcdf_mod 2 2 USE netcdf 3 4 3 #ifndef CPP_NETCDF4 5 4 INTEGER :: NF90_NETCDF4 -
codes/icosagcm/trunk/src/write_field.f90
r39 r76 1484 1484 ncell_tot=sum(ncell_glo(:)) 1485 1485 1486 status = NF90_CREATE_PAR(TRIM(ADJUSTL(name))//'.nc', IOR(NF90_NETCDF4, NF90_MPIIO), comm_icosa, MPI_INFO_NULL, ncid)1486 ! status = NF90_CREATE_PAR(TRIM(ADJUSTL(name))//'.nc', IOR(NF90_NETCDF4, NF90_MPIIO), comm_icosa, MPI_INFO_NULL, ncid) 1487 1487 FieldId(NbField)=ncid 1488 1488 status = NF90_DEF_DIM(ncid,'cell',ncell_tot,ncellId) … … 1604 1604 ncell_tot=sum(ncell_glo(:)) 1605 1605 1606 status = NF90_CREATE_PAR(TRIM(ADJUSTL(name))//'.nc',IOR(NF90_NETCDF4, NF90_MPIIO), comm_icosa, MPI_INFO_NULL, ncid)1606 ! status = NF90_CREATE_PAR(TRIM(ADJUSTL(name))//'.nc',IOR(NF90_NETCDF4, NF90_MPIIO), comm_icosa, MPI_INFO_NULL, ncid) 1607 1607 ! status = NF90_CREATE(TRIM(ADJUSTL(name))//'.nc', NF90_CLOBBER, ncid) 1608 1608 FieldId(NbField)=ncid
Note: See TracChangeset
for help on using the changeset viewer.