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

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

@@ -1 @@
-!
+
 ! $Id $
-!
+
 SUBROUTINE radio_decay(radio,rnpb,dtime,tautr,tr,d_tr) 
-!
+
 ! Caluclate radioactive decay for all tracers with radio(it)=true
-!
+
   USE dimphy
   USE infotrac_phy, ONLY : nbtr
@@ -15 +15 @@
 !        Cas particulier pour le couple radon-plomb : Le radon decroit en plomb
 !-----------------------------------------------------------------------
-!
+
 ! Entrees
-!
+
   LOGICAL,DIMENSION(nbtr),INTENT(IN)        :: radio ! .true. = traceur radioactif  
   LOGICAL,INTENT(IN)                        :: rnpb  ! .true. = decroissance RN = source PB
@@ -23 +23 @@
   REAL,DIMENSION(nbtr),INTENT(IN)           :: tautr ! Constante de decroissance radioactive
   REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: tr    ! Concentrations traceurs U/kgA
-!
+
 ! Sortie
-!
+
   REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT) :: d_tr  ! Tendance de decroissance radioactive
-!
+
 ! Locales
-!
+
   INTEGER  :: i,k,it