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

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_dtke.F90

@@ -40 +40 @@
 
 !   calcul du detrainement
-      do k=1,nlay
+      DO k=1,nlay
          detr0(:,k)=fm0(:,k)-fm0(:,k+1)+entr0(:,k)
          masse0(:,k)=(pplev(:,k)-pplev(:,k+1))/RG
@@ -51 +51 @@
       detr(:,1)=0.5*detr0(:,1)
       fm(:,1)=0.
-      do k=1,nlay-1
+      DO k=1,nlay-1
          masse(:,k+1)=0.5*(masse0(:,k)+masse0(:,k+1))
          entr(:,k+1)=0.5*(entr0(:,k)+entr0(:,k+1))
@@ -65 +65 @@
    q(:,:)=tke(:,:,isrf)
 !   calcul de la valeur dans les ascendances
-      do ig=1,ngrid
+      DO ig=1,ngrid
          qa(ig,1)=q(ig,1)
       enddo
@@ -71 +71 @@
 
     IF (1==1) THEN
-      do k=2,nlay
-         do ig=1,ngrid
+      DO k=2,nlay
+         DO ig=1,ngrid
             IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>  &
            1.e-5*masse(ig,k)) THEN
@@ -91 +91 @@
 ! Calcul du flux subsident
 
-      do k=2,nlay
-         do ig=1,ngrid
+      DO k=2,nlay
+         DO ig=1,ngrid
             wqd(ig,k)=fm(ig,k)*q(ig,k)
             IF (wqd(ig,k)<0.) THEN
@@ -99 +99 @@
          enddo
       enddo
-      do ig=1,ngrid
+      DO ig=1,ngrid
          wqd(ig,1)=0.
          wqd(ig,nlay+1)=0.
@@ -106 +106 @@
 
 ! Calcul des tendances
-      do k=1,nlay
-         do ig=1,ngrid
+      DO k=1,nlay
+         DO ig=1,ngrid
             q(ig,k)=q(ig,k)+(detr(ig,k)*qa(ig,k)-entr(ig,k)*q(ig,k)  &
                  -wqd(ig,k)+wqd(ig,k+1))  &