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

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

@@ -1 +1 @@
 !$Id $
-!
+
 MODULE traclmdz_mod
 
-! 
 ! In this module all tracers specific to LMDZ are treated. This module is used 
 ! only if running without any other chemestry model as INCA or REPROBUS.  
-!
+
   IMPLICIT NONE
 
@@ -15 +14 @@
   REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: hsoltr   ! Epaisseur equivalente du reservoir de sol
 !$OMP THREADPRIVATE(hsoltr)
-!
+
 !Radioelements:
 !--------------
-!
+
   REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: tautr    ! Constante de decroissance radioactive
 !$OMP THREADPRIVATE(tautr)
@@ -166 +165 @@
 !!    endif
     aerosol(:) = .FALSE.  ! Tous les traceurs sont des gaz par defaut
-    
-!
+
 ! Recherche des traceurs connus : Be7, O3, CO2,...
 ! --------------------------------------------
@@ -241 +239 @@
     END DO
 
-!
 ! Valeurs specifiques pour les traceurs Rn222 et Pb210
 ! ----------------------------------------------
@@ -256 +253 @@
     END IF
 
-!
 ! Check if all tracers have restart values
 ! ----------------------------------------------
@@ -323 +319 @@
 
 ! Input arguments
-!
+
 !Configuration grille,temps:
     INTEGER,INTENT(IN) :: nstep      ! nombre d'appels de la physiq
@@ -332 +328 @@
     REAL, INTENT(IN):: xlon(:) ! dim(klon) longitude
 
-!
 !Physique: 
 !--------
@@ -343 +338 @@
 !Couche limite:
 !--------------
-!
+
     REAL,DIMENSION(klon),INTENT(IN)      :: cdragh     ! coeff drag pour T et Q
     REAL,DIMENSION(klon,klev),INTENT(IN) :: coefh      ! coeff melange CL (m**2/s)
@@ -380 +375 @@
     REAL                           :: zrho     ! Masse Volumique de l'air KgA/m3
     REAL                           :: amn, amx
-!
+
 !=================================================================
 !  Ajout de la production en  Be7 (Beryllium) srcbe U/s/kgA
 !=================================================================
-!
+
     IF ( id_be /= 0 ) THEN
        DO k = 1, klev