Changeset 1984 for LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Feb 18, 2014, 10:59:29 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Cleanup and update of "grilles_gcm_netcdf_sub": removed old version, removed flag "grilles_gcm_netcdf" used to trigger output of grilles_gcm.nc file (file will now always be created) and fixed writing vertical levels presnivs in the file.
JBM+EM

File:

• LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

@@ -942 +942 @@
       ok_etat0 = .TRUE.
       CALL getin('ok_etat0',ok_etat0)
-
-!Config  Key  = grilles_gcm_netcdf
-!Config  Desc = creation de fichier grilles_gcm.nc dans create_etat0_limit
-!Config  Def  = n
-      grilles_gcm_netcdf = .FALSE.
-      CALL getin('grilles_gcm_netcdf',grilles_gcm_netcdf)
 
       write(lunout,*)' #########################################'
@@ -997 +991 @@
       write(lunout,*)' ok_limit = ', ok_limit
       write(lunout,*)' ok_etat0 = ', ok_etat0
-      write(lunout,*)' grilles_gcm_netcdf = ', grilles_gcm_netcdf
 c
       RETURN