Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initdynav_loc.f90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initdynav_loc.f90 (modified) (3 diffs)

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

@@ -95 +95 @@
   tau0 = itau_dyn
 
-  do jj = 1, jjp1
-    do ii = 1, iip1
+  DO jj = 1, jjp1
+    DO ii = 1, iip1
       rlong(ii, jj) = rlonv(ii) * 180. / pi
       rlat(ii, jj) = rlatu(jj) * 180. / pi
@@ -139 +139 @@
   IF (pole_sud) jje = jje - 1
 
-  do jj = jjb, jje
-    do ii = 1, iip1
+  DO jj = jjb, jje
+    DO ii = 1, iip1
       rlong(ii, jj) = rlonv(ii) * 180. / pi
       rlat(ii, jj) = rlatv(jj) * 180. / pi
@@ -164 +164 @@
   ! Grille U
 
-  do jj = 1, jjp1
-    do ii = 1, iip1
+  DO jj = 1, jjp1
+    DO ii = 1, iip1
       rlong(ii, jj) = rlonu(ii) * 180. / pi
       rlat(ii, jj) = rlatu(jj) * 180. / pi