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

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 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/cltracrn.F90 (modified) (5 diffs)

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

@@ -17 +17 @@
 ! Objet: diffusion verticale de traceurs avec quantite de traceur ds 
 !        le sol ( reservoir de sol de radon ) 
-!        
+
 ! note : pour l'instant le traceur dans le sol et le flux sont
 !        calcules mais ils ne servent que de diagnostiques
@@ -46 +46 @@
 !======================================================================
   include "YOMCST.h"
-!
+
 !Entrees
   INTEGER,INTENT(IN)                     :: itr
@@ -205 +205 @@
              *(zx_ctr(i,1)*(zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2)) &
              +zx_alpha2(i)*zx_ctr(i,2))
-        !
+
         zx_b = 1. + rotrhi(i)*masktr(i)*zx_coef(i,1)/RG  &
              * (1.-zx_dtr(i,1)                           &
@@ -211 +211 @@
              + dtime / tautr                             &
              + dtime * vdeptr / hsoltr
-        ! 
+
         zx_trs(i) = zx_a / zx_b
         local_trs(i) = zx_trs(i)
@@ -247 +247 @@
 
   ENDDO    ! sur le i=1,klon
-!
+
 !======================================================================
 ! Une fois on a zx_trs, on peut faire l'iteration