Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/iniconst.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/dyn3d_common/iniconst.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/iniconst.F90

@@ -21 +21 @@
   include "iniprint.h"
 
-  character(len=*),parameter :: modname="iniconst"
-  character(len=80) :: abort_message
+  CHARACTER(LEN=*),parameter :: modname="iniconst"
+  CHARACTER(LEN=80) :: abort_message
 
 
@@ -48 +48 @@
   r       = cpp * kappa
 
-  write(lunout,*) trim(modname),': R  CP  Kappa ',r,cpp,kappa
+  WRITE(lunout,*) trim(modname),': R  CP  Kappa ',r,cpp,kappa
 
   !-----------------------------------------------------------------------
 
   ! vertical discretization: default behavior depends on planet_type flag
-  if (planet_type=="earth") then
+  if (planet_type=="earth") THEN
      disvert_type=1
   else
@@ -60 +60 @@
   ! but user can also specify using one or the other in run.def:
   CALL getin('disvert_type',disvert_type)
-  write(lunout,*) trim(modname),': disvert_type=',disvert_type
+  WRITE(lunout,*) trim(modname),': disvert_type=',disvert_type
 
   pressure_exner = disvert_type == 1 ! default value
   CALL getin('pressure_exner', pressure_exner)
 
-  if (disvert_type==1) then
+  if (disvert_type==1) THEN
      ! standard case for Earth (automatic generation of levels)
      CALL disvert()
-  else if (disvert_type==2) then
+  else if (disvert_type==2) THEN
      ! standard case for planets (levels generated using z2sig.def file)
      CALL disvert_noterre
   else
-     write(abort_message,*) "Wrong value for disvert_type: ", disvert_type
+     WRITE(abort_message,*) "Wrong value for disvert_type: ", disvert_type
      CALL abort_gcm(modname,abort_message,0)
   endif