Changeset 1416 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/pres2lev.F90

Timestamp:

Jul 16, 2010, 11:29:10 AM (14 years ago)

Author:

jghattas

Message:

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 use_filtre_fft=n).
• the results are the same as the sequential mode in previous revision.
• test done only with guide_u=y,guide_v=y

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

ACo, YM, JG

File:

• LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/pres2lev.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/pres2lev.F90

@@ -60 +60 @@
       DO k=1,ni*nj
         IF (pn(k,ln) >= zpo(k,1) ) THEN
-          varn(k,ln) = varo(k,1)
+          varn(k,ln) = zvaro(k,1)
         ELSE IF (pn(k,ln) <= zpo(k,lmo)) THEN
           varn(k,ln) = zvaro(k,lmo)