Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/orografi_strato.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/orografi_strato.F90 (modified) (3 diffs)

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

@@ -287 +287 @@
 
   ! ztmst=twodt
-  ! IF(nstep.eq.nstart) ztmst=0.5*twodt
+  ! IF(nstep.EQ.nstart) ztmst=0.5*twodt
   ztmst = ptsphy
 
@@ -1034 +1034 @@
       ! or low level flow:  gravity wave stress nul.
 
-      ! lo=(ptau(jl,klev+1).lt.gtsec).or.(kcrit(jl).ge.kknu(jl))
-      ! *      .or.(pvph(jl,klev+1).lt.gvcrit)
+      ! lo=(ptau(jl,klev+1).lt.gtsec).OR.(kcrit(jl).ge.kknu(jl))
+      ! *      .OR.(pvph(jl,klev+1).lt.gvcrit)
       ! IF(lo) ptau(jl,klev+1)=0.0
 
@@ -1858 +1858 @@
   PRINT *, ' DANS SUGWD nktopg=', nktopg
   PRINT *, ' DANS SUGWD nstra=', nstra
-  if (nstra == 0) CALL abort_physic("sugwd_strato", "no level in stratosphere", 1)
+  IF (nstra == 0) CALL abort_physic("sugwd_strato", "no level in stratosphere", 1)
 
   !  Valeurs lues dans les .def, ou attribues dans conf_phys