Changeset 4667 for LMDZ6/trunk/libf

Timestamp:

Sep 3, 2023, 3:16:22 PM (18 months ago)

Author:

fhourdin

Message:

Test de replay OK pour lscp et fisrtilp

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90

@@ -56 +56 @@
   !======================================================================
   include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
   !
   ! Principaux inputs:
@@ -86 +88 @@
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: d_qi ! incrementation de l'eau glace
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: rneb, rneblsvol ! fraction nuageuse
+  REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: beta ! taux de conversion de l'eau cond
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: radliq ! eau liquide utilisee dans rayonnements
   REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: rhcl ! humidite relative en ciel clair
@@ -180 +183 @@
   !AA
 ! RomP >>> 15 nov 2012
-  REAL, DIMENSION(klon,klev) :: beta ! taux de conversion de l'eau cond
 ! RomP <<<
   REAL, DIMENSION(klon) :: zmair
@@ -193 +195 @@
   REAL ::  fallvs,fallvc ! Vitesse de chute pour cristaux de glace
                      ! (Heymsfield & Donner, 1990)
-  REAL zzz
-  include "YOETHF.h"
-  include "FCTTRE.h"
   fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con
   fallvs (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_lsc
+
+  REAL :: zzz
+
   !
   !ym
@@ -1677 +1679 @@
   endif
 
+RETURN
 END SUBROUTINE fisrtilp
 END MODULE lmdz_lscp_old