Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/nflxtr.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/nflxtr.F90 (modified) (3 diffs)

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

@@ -1 @@
-!
+
 ! $Id $
-!
+
 SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,pplay,paprs,x,dx) 
   USE dimphy
@@ -20 +20 @@
 !    contrairement au schema de Tiedtke d'ou les changements de signe!!!! 
 !=====================================================================
-!
+
   include "YOMCST.h"
   include "YOECUMF.h" 
 
   REAL,INTENT(IN) :: pdtime  ! pdtphys
-!
+
 ! les flux sont definis au 1/2 niveaux 
 ! => pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
-!
+
   REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfu  ! flux de masse dans le panache montant 
   REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfd  ! flux de masse dans le panache descendant
@@ -90 +90 @@
 ! calcul des flux dans le panache montant
 ! =========================================
-!
+
 ! Dans la premiere couche, on prend q comme valeur de qu