Changeset 4665

Timestamp:

Sep 2, 2023, 11:26:14 AM (9 months ago)

Author:

fhourdin

Message:

Oublie dans la commission precedente

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_tools.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/lscp_tools_mod.F90) (6 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_tools.F90

@@ -1 @@
-MODULE LSCP_TOOLS_MOD
+MODULE lmdz_lscp_tools
 
     IMPLICIT NONE
@@ -16 +16 @@
     ! 3212–3234. https://doi.org/10.1029/2019MS001642
     
-    use lscp_ini_mod, only: iflag_vice, ffallv_con, ffallv_lsc
-    use lscp_ini_mod, only: cice_velo, dice_velo 
+    use lmdz_lscp_ini, only: iflag_vice, ffallv_con, ffallv_lsc
+    use lmdz_lscp_ini, only: cice_velo, dice_velo 
 
     IMPLICIT NONE
@@ -113 +113 @@
 
     USE print_control_mod, ONLY: lunout, prt_level
-    USE lscp_ini_mod, ONLY: t_glace_min, t_glace_max, exposant_glace, iflag_t_glace
-    USE lscp_ini_mod, ONLY : RTT, dist_liq, temp_nowater
+    USE lmdz_lscp_ini, ONLY: t_glace_min, t_glace_max, exposant_glace, iflag_t_glace
+    USE lmdz_lscp_ini, ONLY : RTT, dist_liq, temp_nowater
 
     IMPLICIT NONE
@@ -311 +311 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
-    use lscp_ini_mod, only: iflag_gammasat, t_glace_min, RTT
+    use lmdz_lscp_ini, only: iflag_gammasat, t_glace_min, RTT
 
     IMPLICIT NONE
@@ -387 +387 @@
 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
-   USE lscp_ini_mod, ONLY : rd,rg,tresh_cl
+   USE lmdz_lscp_ini, ONLY : rd,rg,tresh_cl
 
    IMPLICIT NONE
@@ -452 +452 @@
 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
-END MODULE LSCP_TOOLS_MOD
-
-
+END MODULE lmdz_lscp_tools
+
+