Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.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/rrtm/su_aerp.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.F90

@@ -65 +65 @@
 !      (RHTAB, RHHO_SS, RSSGROW)
 !   or to 12 types/bins of aerosols with the following mapping: NTYPAER
-!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns                  1
-!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns                  2
-!   7- 8  POM       hydrophilic, hydrophobic                       3
-!   9-10  BC        hydrophilic, hydrophobic                       4
-!  11     sulfate                                                  5
-!  12     fly ash                                                  6
-!  13     stratospheric aerosols                                   7
-!  14     volcanic aerosols                                        8
-!  15                                                              9
+!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns           1
+!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns           2
+!   7- 8  POM        hydrophilic, hydrophobic               3
+!   9-10  BC        hydrophilic, hydrophobic               4
+!  11     sulfate                           5
+!  12     fly ash                           6
+!  13     stratospheric aerosols                   7
+!  14     volcanic aerosols                       8
+!  15                                   9
 !      (RVDPOCE, RVDSIC, RVDPLND, RVDPLIC)
 !      (RVSEDOCE,RVSEDSIC,RVSEDLND,RVSEDLIC)
@@ -268 +268 @@
  &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB /)
 
-                                                                                 
+
 !*      3.    PARAMETERS RELATED TO TRANSPORT WITHIN THE FREE ATMOSPHERE
 !             ----------------------------------------------------------