Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/covcont_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/covcont_loc.f90 (modified) (1 diff)

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

@@ -33 +33 @@
   ijev=ij_end+iip1
 
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
     ijbu=ij_begin+iip1
     ijbv=ij_begin
-  endif
+  ENDIF
 
-  if (pole_sud) THEN
+  IF (pole_sud) THEN
     ijeu=ij_end-iip1
     ijev=ij_end-iip1
-  endif
+  ENDIF
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)