Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/caldyn_loc.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/dyn3dmem/caldyn_loc.f90 (modified) (2 diffs)

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

@@ -144 +144 @@
   ije = ij_end + iip1
 
-  if (pole_nord) ijb = ij_begin
-  if (pole_sud) ije = ij_end
+  IF (pole_nord) ijb = ij_begin
+  IF (pole_sud) ije = ij_end
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -162 +162 @@
   ijb = ij_begin
   ije = ij_end
-  if (pole_sud) ije = ij_end - iip1
+  IF (pole_sud) ije = ij_end - iip1
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)