Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/hines_gwd.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/hines_gwd.F90 (modified) (2 diffs)

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

@@ -479 +479 @@
   ! * RMSWIND   = root mean square gravity wave wind at lowest level (m/s).
   ! * K_ALPHA    = horizontal wavenumber of each azimuth (1/m).
-  ! * IORDER       = 1 means vertical levels are indexed from top down
+  ! * IORDER       = 1 means vertical levels are indexed from top down
   ! *              (i.e., highest level indexed 1 and lowest level NLEVS);
   ! *           .NE. 1 highest level is index NLEVS.
@@ -1860 +1860 @@
   ! * ALT     = altitudes.
   ! * ALT_EXP = altitude above which exponential decay applied.
-  ! * IORDER    = 1 means vertical levels are indexed from top down
+  ! * IORDER    = 1 means vertical levels are indexed from top down
   ! *           (i.e., highest level indexed 1 and lowest level NLEVS);
   ! *           .NE. 1 highest level is index NLEVS.