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

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

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

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

@@ -2 +2 @@
 CONTAINS
 
-subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
+SUBROUTINE thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
 implicit none
 
@@ -37 +37 @@
 
 RLvCp = RLVTT/RCPD
-tout_converge=.false.
-afaire(:)=.false.
+tout_converge=.FALSE.
+afaire(:)=.FALSE.
 DT(:)=0.
 
@@ -48 +48 @@
 !====================================================================
 
-do ig=1,klon
+DO ig=1,klon
    if (active(ig)) then
                Tbef(ig)=ztemp(ig)
@@ -60 +60 @@
                zqsat(ig)=qsatbef
      endif
-enddo
+END DO
 
 ! Traitement du cas ou il y a condensation mais faible
 ! On ne condense pas mais on dit que le qsat est le qta
-do ig=1,klon
+DO ig=1,klon
    if (active(ig)) then
       if (0.<abs(DT(ig)).and.abs(DT(ig))<=DDT0) then
@@ -70 +70 @@
       endif
    endif
-enddo
+END DO
 
-do iter=1,10
+DO iter=1,10
     afaire(:)=abs(DT(:))>DDT0
     do ig=1,klon
@@ -93 +93 @@
                endif
     enddo
-enddo
+END DO
 
 return