Changeset 1488 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/conf_gcm.F

Timestamp:

Feb 17, 2011, 4:23:03 PM (13 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/conf_gcm.F (modified) (2 diffs)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/conf_gcm.F

@@ -841 +841 @@
       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,*)' #########################################'
@@ -887 +893 @@
       write(lunout,*)' ok_limit = ', ok_limit
       write(lunout,*)' ok_etat0 = ', ok_etat0
+      write(lunout,*)' grilles_gcm_netcdf = ', grilles_gcm_netcdf
 c
       RETURN