Changeset 4059 for LMDZ6/trunk/libf/phylmd/lscp_tools_mod.F90

Timestamp:

Jan 21, 2022, 3:50:54 PM (2 years ago)

Author:

oboucher

Message:

Audran Borella's parametrisation for ice supersaturation
activated with flag_ice_sursat (FALSE by default)

File:

• LMDZ6/trunk/libf/phylmd/lscp_tools_mod.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/lscp_tools_mod.F90

@@ -123 +123 @@
     USE print_control_mod, ONLY: lunout, prt_level
 
-    IMPLICIT none
+    IMPLICIT NONE
 
 
@@ -202 +202 @@
     ENDDO
 
-
     RETURN
 
@@ -215 +214 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
-
-    IMPLICIT none
+    IMPLICIT NONE
 
     include "YOMCST.h"
@@ -236 +234 @@
     REAL, INTENT(OUT) :: dqs     ! derivation of saturation specific humidity wrt T
 
-
     REAL delta, cor, cvm5
-
    
     IF (phase .EQ. 1) THEN
@@ -261 +257 @@
     dqs= FOEDE(temp,delta,cvm5,qs,cor)
 
-
-
 END SUBROUTINE CALC_QSAT_ECMWF
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -278 +272 @@
 
 
-    IMPLICIT none
+    IMPLICIT NONE
 
     include "YOMCST.h"
@@ -341 +335 @@
         ENDIF
    
-
-
-
 END SUBROUTINE CALC_GAMMASAT