Ignore:
Timestamp:
10/12/16 16:14:03 (8 years ago)
Author:
ymipsl
Message:

New version independant of netcd I/O for benchmarking.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r378 r488  
    2727      use netcdf_mod 
    2828      CHARACTER(LEN=255) :: netcdf_prec 
     29       
    2930      !$OMP CRITICAL 
    3031      netcdf_prec='float' 
    … …  
    6869    USE dimensions 
    6970    USE mpipara 
     71    USE netcdf_mod 
    7072    IMPLICIT NONE   
    7173     CHARACTER(LEN=*),INTENT(IN) :: name_in 
    … …  
    7678       
    7779      TYPE(t_field),POINTER :: field_glo(:) 
    78  
     80       
     81      IF (no_io) RETURN 
     82       
    7983!$OMP BARRIER 
    8084!$OMP MASTER       
    … …  
    17771781    
    17781782   SUBROUTINE Close_files 
    1779    USE netcdf 
     1783   USE netcdf_mod 
    17801784   IMPLICIT NONE 
    17811785     INTEGER :: i,k,status 
Note: See TracChangeset for help on using the changeset viewer.