Changeset 2247 for LMDZ5/trunk/libf/dynlmdz_phylmd/ce0l.F90

Timestamp:

Mar 25, 2015, 6:24:15 PM (10 years ago)

Author:

lguez

Message:

We want to keep the same "*.def" files with programs ce0l and gcm. But
there is only a sequential version of program ce0l, which has not the
FFT filter. So we have to ignore the setting of use_filtre_fft in
program ce0l. Moved the test on use_filtre_fft from procedure conf_gcm
to main units ce0l and gcm.

Location:

LMDZ5/trunk/libf/dynlmdz_phylmd

Files:

• . (copied) (copied from LMDZ5/trunk/libf/dynlmdz_phylmd)
• ce0l.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynlmdz_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/))