Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1D_decl_cases.h

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/phylmd/dyn1d/1D_decl_cases.h (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1D_decl_cases.h

@@ -109 +109 @@
 !       real dt_gabls4
 !       parameter (dt_gabls4=3600.) ! 1 forcage ttes les heures
-!
+
 !profils initiaux:
 !       real plev_gabls4(nlev_gabls4)
@@ -119 +119 @@
 !       real u_gabi(nlev_gabls4), v_gabi(nlev_gabls4),ug_gabi(nlev_gabls4), vg_gabi(nlev_gabls4)
 !       real ht_gabi(nlev_gabls4),hq_gabi(nlev_gabls4),poub(nlev_gabls4)
-!       
+
 !forcings
 ! Lignes a detruire ...
@@ -128 +128 @@
 !       real ug_profg(nlev_gabls4),vg_profg(nlev_gabls4)
 !       real tg_profg
-!        
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!