Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

@@ -16 +16 @@
     ! 3212–3234. https://doi.org/10.1029/2019MS001642
     
-    use lmdz_lscp_ini, ONLY: iflag_vice, ffallv_con, ffallv_lsc
-    use lmdz_lscp_ini, 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
@@ -51 +51 @@
     IF (iflag_vice == 1) THEN
         ! so-called 'empirical parameterization' in Stubenrauch et al. 2019
-        if (tempc >= -60.0) THEN
+        IF (tempc >= -60.0) THEN
             logvm= -0.0000414122*tempc*tempc*log(iwcg)-0.00538922*tempc*log(iwcg) &
                     -0.0516344*log(iwcg)+0.00216078*tempc + 1.9714    
@@ -575 +575 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
-    use lmdz_lscp_ini, ONLY: iflag_gammasat, t_glace_min, RTT
+    USE lmdz_lscp_ini, ONLY: iflag_gammasat, t_glace_min, RTT
 
     IMPLICIT NONE