Changeset 1488 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/logic.h

Timestamp:

Feb 17, 2011, 4:23:03 PM (14 years ago)

Author:

jghattas

Message:

Added subroutine grilles_gcm_netcdf_sub containing the first part of program create_fausse_var in file grilles_gcm_netcdf.F . The new subroutine is called in ce0l if parameter grilles_gcm_netcdf=T (default =F). The subroutine creates the file grilles_gcm.nc .

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/logic.h (modified) (1 diff)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/logic.h

@@ -10 +10 @@
      &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0
+     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
 
       LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0
+     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
 
       INTEGER iflag_phys