Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.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/dyn3d_common/disvert_noterre.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.f90

@@ -91 +91 @@
      esig=1.
 
-     do l=1,20
+     DO l=1,20
         esig=-log((1./sig1-1.)*exp(-dz0)/esig)/(llm-1.)
      enddo
@@ -129 +129 @@
 
      READ(99,*) scaleheight
-     do l=1,llm
+     DO l=1,llm
         read(99,*) zsig(l)
      END DO
@@ -135 +135 @@
 
      sig(1) =1
-     do l=2,llm
+     DO l=2,llm
        sig(l) = 0.5 * ( exp(-zsig(l)/scaleheight) + &
              exp(-zsig(l-1)/scaleheight) )