Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/qminimum_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/qminimum_loc.f90 (modified) (3 diffs)

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

@@ -170 +170 @@
     ! 2) transfert de vap vers les couches plus hautes
     !WRITE(lunout,*) 'qminimum 158'
-    do k = 2, llm
+    DO k = 2, llm
       !$OMP DO SCHEDULE(STATIC)
       DO i = ijb, ije
@@ -185 +185 @@
             CALL abort_gcm("qminimum", "not enough vapor", 1)
           endif
-          do ixt = 1, ntiso
+          DO ixt = 1, ntiso
             ! WRITE(lunout,*) 'qmin 168: ixt=',ixt
             ! WRITE(lunout,*) 'q(i,k,iqIsoPha(ixt,iq_vap))=',
@@ -255 +255 @@
     ! 3) transfert d'eau de la vapeur au liquide
     !WRITE(*,*) 'qminimum 164'
-    do k = 1, llm
+    DO k = 1, llm
       !$OMP DO SCHEDULE(STATIC)
       DO i = ijb, ije
         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) &