Changeset 1511 for LMDZ5/trunk/libf/dyn3d/ce0l.F90

Timestamp:

Apr 28, 2011, 5:21:47 PM (14 years ago)

Author:

jghattas

Message:

Added 4 more variables in output file grilles_gcm.nc created by ce0l :
lev, phis, aire and mask. These variables are needed by INCA.

A Cozic

File:

• LMDZ5/trunk/libf/dyn3d/ce0l.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/ce0l.F90

@@ -43 +43 @@
   REAL,    DIMENSION(iip1,jjp1) :: masque
   CHARACTER(LEN=15)             :: calnd
+  REAL,    DIMENSION(iip1,jjp1) :: phis ! geopotentiel au sol
 !-------------------------------------------------------------------------------
   CALL conf_gcm( 99, .TRUE. , clesphy0 )
@@ -80 +81 @@
   WRITE(lunout,'(//)')
   WRITE(lunout,*) ' interbar = ',interbar
-  CALL etat0_netcdf(interbar,masque,ok_etat0)
+  CALL etat0_netcdf(interbar,masque,phis,ok_etat0)
 
   IF(ok_limit) THEN
@@ -97 +98 @@
      WRITE(lunout,*) '  ***************************  '
      WRITE(lunout,'(//)')
-     CALL grilles_gcm_netcdf_sub()
+     CALL grilles_gcm_netcdf_sub(masque,phis)
   END IF
 #endif