Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/stratocu_if.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/stratocu_if.F90 (modified) (5 diffs)

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

@@ -10 +10 @@
 ! ou une forte inversion est presente
 ! On peut dire qu'il represente la convection peu profonde
-!
+
 ! Arguments:
 ! klon-----input-I- nombre de points a traiter
@@ -16 +16 @@
 ! pplay----input-R- pression au milieu de chaque couche (en Pa)
 ! t--------input-R- temperature (K)
-!
+
 ! weak_inversion-----logical
 !======================================================================
-!
+
 ! Arguments:
-!
+
     INTEGER, INTENT(IN)                       :: klon,klev
     REAL, DIMENSION(klon, klev+1), INTENT(IN) ::  paprs
@@ -29 +29 @@
     
     REAL, DIMENSION(klon), INTENT(OUT)  :: weak_inversion
-!
+
 ! Quelques constantes et options:
-!
+
     REAL seuil_inversion ! au-dela l'inversion est consideree trop faible
 !    PARAMETER (seuil=-0.1)
 
-!
 ! Variables locales:
-!
+
     INTEGER i, k, invb(klon)
     REAL zl2(klon)
@@ -44 +43 @@
     INCLUDE "YOMCST.h"
 
-!
 ! Chercher la zone d'inversion forte
-!
 
     DO i = 1, klon
@@ -65 +62 @@
     ENDDO
 
+! Introduire une diffusion:
 
-!
-! Introduire une diffusion:
-!
     DO i = 1, klon
        IF ( (pctsrf(i,is_oce) < 0.5) .OR. &