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

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

@@ -37 +37 @@
   ijb=ij_begin
   ije=ij_end
-  if (pole_nord) ijb=ijb+iip1
-  if (pole_sud)  ije=ije-iip1
+  IF (pole_nord) ijb=ijb+iip1
+  IF (pole_sud)  ije=ije-iip1
 
   DO ij  = ijb, ije - 1
@@ -55 +55 @@
   !
   !
-  if (pole_nord) ijb=ijb-iip1
+  IF (pole_nord) ijb=ijb-iip1
 
   DO ij  = ijb,ije