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

LMDZ6/branches/Amaury_dev/libf/dyn3d/advtrac.F90

@@ -5 +5 @@
 SUBROUTINE advtrac(pbaru, pbarv, p, masse,q,iapptrac,teta, flxw, pk)
    !     Auteur :  F. Hourdin
-   !
+
    !     Modif. P. Le Van     (20/12/97)
    !            F. Codron     (10/99)
    !            D. Le Croller (07/2001)
    !            M.A Filiberti (04/2002)
-   !
+
    USE infotrac,     ONLY: nqtot, tracers, isoCheck
    USE control_mod,  ONLY: iapp_tracvl, day_step
@@ -16 +16 @@
 
    IMPLICIT NONE
-   !
+
    include "dimensions.h"
    include "paramet.h"
@@ -96 +96 @@
 
    !   ..  Modif P.Le Van  ( 20/12/97 )  ....
-   !
+
    !   traitement des flux de masse avant advection.
    !       1. calcul de w