Changeset 76


Ignore:
Timestamp:
08/02/12 22:33:19 (12 years ago)
Author:
ymipsl
Message:

temporary correction for netcdf4 parallel writing

YM

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/netcdf_mod.F90

    r44 r76  
    11MODULE netcdf_mod 
    22  USE netcdf 
    3  
    43#ifndef CPP_NETCDF4 
    54  INTEGER ::  NF90_NETCDF4 

  • codes/icosagcm/trunk/src/write_field.f90

    r39 r76  
    14841484        ncell_tot=sum(ncell_glo(:)) 
    14851485         
    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) 
    14871487        FieldId(NbField)=ncid 
    14881488        status = NF90_DEF_DIM(ncid,'cell',ncell_tot,ncellId) 
    … …  
    16041604        ncell_tot=sum(ncell_glo(:)) 
    16051605               
    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) 
    16071607!        status = NF90_CREATE(TRIM(ADJUSTL(name))//'.nc', NF90_CLOBBER, ncid) 
    16081608        FieldId(NbField)=ncid 
Note: See TracChangeset for help on using the changeset viewer.