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

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/cvltr_noscav.F90 (modified) (2 diffs)

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

@@ -40 +40 @@
   REAL                            :: pdtimeRG
   REAL                            :: smallest_mp
-  real conserv
-  real smfd
-  real smfu
-  real smfa
-  real smfp
+  REAL conserv
+  REAL smfd
+  REAL smfu
+  REAL smfa
+  REAL smfp
 ! =========================================
 ! calcul des tendances liees au downdraft
@@ -88 +88 @@
      DO j=k-1,1,-1
         DO i=1,klon
-!!           IF(mp(i,j+1).ne.0) THEN
+!!           IF(mp(i,j+1).NE.0) THEN
 !!              zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1))
 !!           ENDif