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

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/gases.F90

@@ -126 +126 @@
   sumo = 0.
   aux1 = 1.1*e_th
-  do i=1,nbands_o2
+  DO i=1,nbands_o2
     aux2 = f/v0(i)
     aux3 = v0(i)-f
@@ -151 +151 @@
   sumo = 0.
   aux1 = 4.8*e_th
-  do i=1,nbands_h2o
+  DO i=1,nbands_h2o
     aux2 = f/v1(i)
     aux3 = v1(i)-f