Changeset 2886 for LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_init_140gp.F90

Timestamp:

May 20, 2017, 9:41:16 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2865:2885 into testing branch

Location:

LMDZ5/branches/testing

Files:

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

LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_init_140gp.F90

@@ -81 +81 @@
 !  Calculate lookup tables for functions needed in routine TAUMOL (TAUGB2)
 
+! FH 2017/05/03 
+! Ce facteur de correction CORR2 est vraiment bizare parce qu'on
+! impose 1. aux bornes,  en I=1 et I=200 mais la fonction
+! CORE=( 1 - sqrt(i/im) ) / ( 1 - i/im ) = 1/ ( 1 + sqrt(i/im))
+! vaut 1 en i=1 et 1/2 en i=im ...
+
 CORR1(0) = 1.0_JPRB
-CORR1(400) = 1.0_JPRB
+CORR1(200) = 1.0_JPRB
 CORR2(0) = 1.0_JPRB
-CORR2(400) = 1.0_JPRB
-DO I = 1,399
-  Z_FP = 0.0025_JPRB*REAL(I)
+CORR2(200) = 1.0_JPRB
+DO I = 1,199
+  Z_FP = 0.005_JPRB*REAL(I)
   Z_RTFP = SQRT(Z_FP)
   CORR1(I) = Z_RTFP/Z_FP