Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/orografi.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

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

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

@@ -214 +214 @@
 
   ! ztmst=twodt
-  ! if(nstep.eq.nstart) ztmst=0.5*twodt
+  ! IF(nstep.eq.nstart) ztmst=0.5*twodt
   ! ym      klevm1=klev-1
   ztmst = ptsphy
@@ -881 +881 @@
       lo = (ptau(jl, klev + 1)<gtsec) .OR. (kcrit(jl)>=kknu(jl)) .OR. &
               (pvph(jl, klev + 1)<gvcrit)
-      ! if(lo) ptau(jl,klev+1)=0.0
+      ! IF(lo) ptau(jl,klev+1)=0.0
 
     ELSE