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

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE  initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr)
   USE dimphy
@@ -40 +40 @@
   CHARACTER (LEN=80) :: abort_message
 
-!
 ! Radon it = id_rn
 !----------------
@@ -68 +67 @@
   END IF ! id_rn /= 0
 
-!
 ! 210Pb it = id_pb
 !----------------