Changeset 1418 for LMDZ4/trunk/libf/dyn3d/conf_gcm.F

Timestamp:

Jul 19, 2010, 5:11:24 PM (14 years ago)

Author:

jghattas

Message:

Following bug corrections are already done at branch LMDZ4_AR5 rev
1417,1416 :

Bug corrections for nudged run (pres2lev.F90, guide_p_mod.F90) :

• now the results are the same for sequentiel and parallel mode(if adjust=n and compiled with vsafe at mercure).
• the results are the same as the sequential mode in previous revision.
• test done only with guide_u=y,guide_v=y
• copied optimized version of pres2lev.F90 from dyn3dpar to dyn3d

Added condition read_climoz for the variable O3daySTD(calcul_STDlev.h,
undefSTD.F)

Corrected bug in calculation of the diagnostic variable ec550aer
"Extinction at 550nm" (aeropt_5wv.F90) (Maria Raffaella Vuolo, LSCE)

Added stop if use_filtre_fft=y with dyn3d (conf_gcm.F) : this option is
not implemented in dyn3d.

File:

• LMDZ4/trunk/libf/dyn3d/conf_gcm.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/conf_gcm.F

@@ -54 +54 @@
       LOGICAL  fxyhypbb, ysinuss
       INTEGER i
-      
+      LOGICAL use_filtre_fft
 c
 c  -------------------------------------------------------------------
@@ -795 +795 @@
       CALL getin('ok_dyn_ave',ok_dyn_ave) 
 
+!Config  Key  = use_filtre_fft
+!Config  Desc = flag d'activation des FFT pour le filtre
+!Config  Def  = false
+!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
+!Config         le filtrage aux poles.
+! Le filtre fft n'est pas implemente dans dyn3d 
+      use_filtre_fft=.FALSE.
+      CALL getin('use_filtre_fft',use_filtre_fft)
+
+      IF (use_filtre_fft) THEN
+        write(lunout,*)'STOP !!!'
+        write(lunout,*)'use_filtre_fft n est pas implemente dans dyn3d'
+        STOP
+      ENDIF
+      
 !Config key = ok_strato
 !Config  Desc = activation de la version strato