Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/callphysiq_mod.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/dynphy_lonlat/phylmd/callphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90

@@ -69 +69 @@
 
   !$OMP MASTER
-  if (ok_dyn_xios) then
+  if (ok_dyn_xios) THEN
      CALL xios_get_current_context(dyn3d_ctx_handle)
   endif
@@ -99 +99 @@
 ! switching back to LMDZDYN context
 !$OMP MASTER
-  if (ok_dyn_xios) then
+  if (ok_dyn_xios) THEN
      CALL xios_set_current_context(dyn3d_ctx_handle)
   endif