Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/covnat_loc.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/dyn3dmem/covnat_loc.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/covnat_loc.f90

@@ -34 +34 @@
   ije=ij_end
 
-  if (pole_nord) then
-
+  if (pole_nord) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO l = 1,klevel
@@ -45 +44 @@
   endif
 
-  if (pole_sud) then
+  if (pole_sud) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO l = 1,klevel