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

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/ce0l.F90 (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