Changeset 4651 for LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90

Timestamp:

Aug 28, 2023, 4:34:20 PM (13 months ago)

Author:

fhourdin

Message:

Pre-replayisation pour cloudth

Cration de lmdz_cloudth_ini
cloudth_mod.F90 -> lmdz_cloudth.F90
Supression des constantes dans lmdz_cloudth
En fait, cloudth lui même n'est pas vraiment replayisable car appeler ligne par ligne.

File:

• LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90

@@ -129 +129 @@
 CONTAINS
 
-SUBROUTINE lscp_ini(dtime,ok_ice_sursat, RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in, &
+SUBROUTINE lscp_ini(dtime,ok_ice_sursat, iflag_ratqs, RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in, &
                     RVTMP2_in, RTT_in,RD_in,RG_in)
 
@@ -136 +136 @@
    USE print_control_mod, ONLY: prt_level, lunout
    USE ice_sursat_mod, ONLY: ice_sursat_init
+   USE lmdz_cloudth_ini, ONLY : cloudth_ini
 
    REAL, INTENT(IN)      :: dtime
    LOGICAL, INTENT(IN)   :: ok_ice_sursat  
+   INTEGER, INTENT(IN) :: iflag_ratqs
 
    REAL, INTENT(IN)      :: RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in
@@ -255 +257 @@
     IF (ok_ice_sursat) CALL ice_sursat_init()
 
-
+    CALL cloudth_ini(iflag_cloudth_vert,iflag_ratqs)
 
 end subroutine lscp_ini