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

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE AEROPT_2BANDS( &
      pdel, m_allaer, delt, RHcl, &
@@ -16 +16 @@
   !    Anne Cozic Avril 2009
   !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
-  !
+
   IMPLICIT NONE
 
   INCLUDE "YOMCST.h"
 
-  !
   ! Input arguments:
-  !
+
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: pdel
   REAL,                           INTENT(in)  :: delt
@@ -33 +32 @@
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: t_seri
   REAL, DIMENSION(klev),          INTENT(in)  :: presnivs
-  !
+
   ! Output arguments:
-  !
+
   REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: tau_allaer ! epaisseur optique aerosol
   REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: piz_allaer ! single scattering albedo aerosol
   REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: cg_allaer  ! asymmetry parameter aerosol
 
-  !
   ! Local
-  !
+
   REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  tau_ae
   REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  tau_ae_pi
@@ -130 +128 @@
   INTEGER :: nb_aer
 
-  !
   ! Proprietes optiques
-  !
+
   REAL:: alpha_aers_2bands(nbre_RH,nbands,naero_soluble)   !--unit m2/g SO4
   REAL:: alpha_aeri_2bands(nbands,naero_insoluble)
@@ -628 +625 @@
   ENDIF
 
-
-  !
   ! loop over modes, use of precalculated nmd and corresponding sigma
   !    loop over wavelengths