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

Timestamp:

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

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

@@ -75 +75 @@
   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
@@ -85 +85 @@
   ijb = ij_begin
   ije = ij_end
-  if (pole_sud)  ije = ij_end - iip1
+  IF (pole_sud)  ije = ij_end - iip1
 
   DO ij = ijb, ije
@@ -107 +107 @@
     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     = iip2, ip1jmp1
@@ -124 +124 @@
     ENDDO
 
-    if (pole_nord) THEN
+    IF (pole_nord) THEN
       DO      ij = 1, iip1
         uav(ij, l) = 0.
@@ -130 +130 @@
     endif
 
-    if (pole_sud) THEN
+    IF (pole_sud) THEN
       DO      ij = 1, iip1
         uav(ip1jm + ij, l) = 0.
@@ -145 +145 @@
   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)
@@ -180 +180 @@
     ijb = ij_begin
     ije = ij_end + iip1
-    if (pole_sud)  ije = ij_end
+    IF (pole_sud)  ije = ij_end
 
     DO ij = ijb, ije
@@ -191 +191 @@
     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
@@ -204 +204 @@
     ijb = ij_begin
     ije = ij_end
-    if (pole_sud)  ije = ij_end - iip1
+    IF (pole_sud)  ije = ij_end - iip1
 
     DO ij = ijb, ije
@@ -247 +247 @@
   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
   IF (CPPKEY_DEBUGIO) THEN
     CALL WriteField_u('du_bis', du)
@@ -270 +270 @@
   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)