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

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

@@ -128 +128 @@
     ! 2) transfert de vap vers les couches plus hautes
     !WRITE(*,*) 'qminimum 139'
-    do k = 2, llm
+    DO k = 2, llm
       DO i = 1, ip1jmp1
         IF (zx_defau_diag(i, k, 1)>0.0) THEN
           ! on ajoute la vapeur en k
-          do ixt = 1, ntiso
+          DO ixt = 1, ntiso
             q(i, k, iqIsoPha(ixt, iq_vap)) = q(i, k, iqIsoPha(ixt, iq_vap)) &
                     + zx_defau_diag(i, k, 1) &
@@ -160 +160 @@
     ! 3) transfert d'eau de la vapeur au liquide
     !WRITE(*,*) 'qminimum 164'
-    do k = 1, llm
+    DO k = 1, llm
       DO i = 1, ip1jmp1
         IF (zx_defau_diag(i, k, 2)>0.0) THEN
           ! ! on ajoute eau liquide en k en k
-          do ixt = 1, ntiso
+          DO ixt = 1, ntiso
             q(i, k, iqIsoPha(ixt, iq_liq)) = q(i, k, iqIsoPha(ixt, iq_liq)) &
                     + zx_defau_diag(i, k, 2) &