Changeset 2248 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

Timestamp:

Mar 25, 2015, 7:04:54 PM (10 years ago)

Author:

lguez

Message:

Correcting an imbroglio from revision 2247. Directory dynlmdz_phylmd
does not exist any longer, and ce0l.F90 should have been modified in
directory dynlonlat_phylonlat/phylmd.

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

@@ -23 +23 @@
 
 #ifdef CPP_IOIPSL
-  USE ioipsl, ONLY: ioconf_calendar
+  USE ioipsl, ONLY: ioconf_calendar, getin
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  use ioipsl_getincom, only: getin
 #endif
 
@@ -44 +47 @@
   CHARACTER(LEN=15)             :: calnd
   REAL,    DIMENSION(iip1,jjp1) :: phis ! geopotentiel au sol
+  logical use_filtre_fft
 !-------------------------------------------------------------------------------
   CALL conf_gcm( 99, .TRUE. )
+
+  use_filtre_fft=.FALSE.
+  CALL getin('use_filtre_fft',use_filtre_fft)
+  IF (use_filtre_fft) THEN
+     write(lunout, fmt = *) 'FFT filter is not available in the ' &
+          // 'sequential version of the dynamics.'
+     write(lunout, fmt = *) &
+          "Your setting of variable use_filtre_fft is not used."
+  ENDIF
 
   CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))