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

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/iniconst.F90 (modified) (1 diff)

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

@@ -64 +64 @@
   endif
   ! but user can also specify using one or the other in run.def:
-  call getin('disvert_type',disvert_type)
+  CALL getin('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)
+  CALL getin('pressure_exner', pressure_exner)
 
   if (disvert_type==1) then
      ! standard case for Earth (automatic generation of levels)
-     call disvert()
+     CALL disvert()
   else if (disvert_type==2) then
      ! standard case for planets (levels generated using z2sig.def file)
-     call disvert_noterre
+     CALL disvert_noterre
   else
      write(abort_message,*) "Wrong value for disvert_type: ", disvert_type
-     call abort_gcm(modname,abort_message,0)
+     CALL abort_gcm(modname,abort_message,0)
   endif