Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_qsat.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_qsat.F90 (modified) (4 diffs)

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

@@ -24 +24 @@
 REAL Tbef(klon),DT(klon)
 REAL tdelta,qsatbef,zcor,qlbef,zdelta,zcvm5,dqsat,num,denom,dqsat_dT
-logical Zsat
+LOGICAL Zsat
 REAL RLvCp
 
@@ -49 +49 @@
 
 DO ig=1,klon
-   if (active(ig)) THEN
+   IF (active(ig)) THEN
                Tbef(ig)=ztemp(ig)
                zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
@@ -65 +65 @@
 ! On ne condense pas mais on dit que le qsat est le qta
 DO ig=1,klon
-   if (active(ig)) THEN
-      if (0.<abs(DT(ig)).and.abs(DT(ig))<=DDT0) THEN
+   IF (active(ig)) THEN
+      IF (0.<abs(DT(ig)).AND.abs(DT(ig))<=DDT0) THEN
          zqsat(ig)=zqta(ig)
       endif
@@ -75 +75 @@
     afaire(:)=abs(DT(:))>DDT0
     do ig=1,klon
-               if (afaire(ig)) THEN
+               IF (afaire(ig)) THEN
                  Tbef(ig)=Tbef(ig)+DT(ig)
                  zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))