Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.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/dyn3d/iniacademic.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

@@ -152 +152 @@
 
     PRINT*, 'relief=', minval(relief), maxval(relief), 'g=', g
-    do j = 1, jjp1
-      do i = 1, iip1
+    DO j = 1, jjp1
+      DO i = 1, iip1
         phis((j - 1) * iip1 + i) = g * relief(i, j)
       enddo
@@ -264 +264 @@
     !          CALL writefield('theta_eq',tetajl)
 
-    do l = 1, llm
-      do j = 1, jjp1
-        do i = 1, iip1
+    DO l = 1, llm
+      DO j = 1, jjp1
+        DO i = 1, iip1
           ij = (j - 1) * iip1 + i
           tetarappel(ij, l) = tetajl(j, l)
@@ -303 +303 @@
       IF (planet_type=="earth") THEN
         ! Earth: first two tracers will be water
-        do iq = 1, nqtot
+        DO iq = 1, nqtot
           q(:, :, iq) = 0.
           IF(tracers(iq)%name == addPhase('H2O', 'g')) q(:, :, iq) = 1.e-10
@@ -344 +344 @@
       zz = ran1(idum)
       idum = 0
-      do l = 1, llm
-        do ij = iip2, ip1jm
+      DO l = 1, llm
+        DO ij = iip2, ip1jm
           teta(ij, l) = teta(ij, l) * (1. + tetanoise * ran1(idum))
         enddo
@@ -351 +351 @@
 
       ! maintain periodicity in longitude
-      do l = 1, llm
-        do ij = 1, ip1jmp1, iip1
+      DO l = 1, llm
+        DO ij = 1, ip1jmp1, iip1
           teta(ij + iim, l) = teta(ij, l)
         enddo