Changeset 2865 for LMDZ5/trunk/libf

Timestamp:

Apr 24, 2017, 4:53:54 PM (8 years ago)

Author:

Ehouarn Millour

Message:

Suite de la correction de la commission précédente.
MPL+EM

File:

• LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.F90

@@ -85 +85 @@
 CORR2(0) = 1.0_JPRB
 CORR2(400) = 1.0_JPRB
-DO I = 1,199
-  Z_FP = 0.005_JPRB*REAL(I)
+DO I = 1,399
+  Z_FP = 0.0025_JPRB*REAL(I)
   Z_RTFP = SQRT(Z_FP)
   CORR1(I) = Z_RTFP/Z_FP