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

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 .

Location:

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

Files:

• ce0l.F90 (modified) (1 diff)
• conf_gcm.F (modified) (2 diffs)
• grilles_gcm_netcdf_sub.F90 (added)
• logic.h (modified) (1 diff)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/ce0l.F90

@@ -91 +91 @@
   END IF
 
+  IF (grilles_gcm_netcdf) THEN
+     WRITE(lunout,'(//)')
+     WRITE(lunout,*) '  ***************************  '
+     WRITE(lunout,*) '  ***  grilles_gcm_netcdf ***  '
+     WRITE(lunout,*) '  ***************************  '
+     WRITE(lunout,'(//)')
+     CALL grilles_gcm_netcdf_sub()
+  END IF
 #endif
 ! of #ifndef CPP_EARTH #else

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

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