Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_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/vlspltgen_loc.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_loc.F90

@@ -25 +25 @@
   USE mod_hallo
   USE write_field_loc, ONLY: WriteField_u, WriteField_v
-  USE VAMPIR
+  USE lmdz_vampir
   ! CRisi: on rajoute variables utiles d'infotrac
   USE infotrac, ONLY: nqtot, tracers, isoCheck
@@ -97 +97 @@
   ijb = ij_begin - iip1
   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)
@@ -124 +124 @@
   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
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -137 +137 @@
   ijb = ij_begin - iip1
   ije = ij_end
-  if (pole_nord) ijb = ij_begin
-  if (pole_sud)  ije = ij_end - iip1
+  IF (pole_nord) ijb = ij_begin
+  IF (pole_sud)  ije = ij_end - iip1
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -253 +253 @@
   ijb = ij_begin - 2 * iip1
   ije = ij_end + 2 * 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
   CALL check_isotopes(zq, ij_begin, ij_end, 'vlspltgen_loc 280')
 
@@ -290 +290 @@
     ijb = ij_begin - 2 * iip1
     ije = ij_end + 2 * 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
     CALL check_isotopes(zq, ijb, ije, 'vlspltgen_loc 336')
   END IF