Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_alp.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_alp.F90 (modified) (5 diffs)

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

@@ -136 +136 @@
 !------------Test sur le LCL des thermiques
     do ig=1,ngrid
-      ok_lcl(ig)=.false.
-      if ( (pcon(ig) > pplay(ig,nlay-1)) .and. (pcon(ig) < pplay(ig,1)) ) ok_lcl(ig)=.true.
+      ok_lcl(ig)=.FALSE.
+      if ( (pcon(ig) > pplay(ig,nlay-1)) .and. (pcon(ig) < pplay(ig,1)) ) ok_lcl(ig)=.TRUE.
     enddo
 
@@ -199 +199 @@
 
 !-----Calcul de la TKE transportée par les thermiques : therm_tke_max
-   call thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &  ! in
+   CALL thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &  ! in
              rg,pplev,therm_tke_max)                               ! out
 !   print *,' thermcell_tke_transport -> '   !!jyg
@@ -337 +337 @@
 !!! fin nrlmd le 10/04/2012
 
-!      print*,'avant calcul ale et alp' 
+!      PRINT*,'avant calcul ale et alp'
 !calcul de ALE et ALP pour la convection
       alp_bl(:)=0.
       ale_bl(:)=0.
-!          print*,'ALE,ALP ,l,zw2(ig,l),ale_bl(ig),alp_bl(ig)'
+!          PRINT*,'ALE,ALP ,l,zw2(ig,l),ale_bl(ig),alp_bl(ig)'
       do l=1,nlay
       do ig=1,ngrid
            alp_bl(ig)=max(alp_bl(ig),0.5*rhobarz(ig,l)*wth3(ig,l) )
            ale_bl(ig)=max(ale_bl(ig),0.5*zw2(ig,l)**2)
-!          print*,'ALE,ALP',l,zw2(ig,l),ale_bl(ig),alp_bl(ig)
+!          PRINT*,'ALE,ALP',l,zw2(ig,l),ale_bl(ig),alp_bl(ig)
       enddo
       enddo
@@ -377 +377 @@
       enddo
 
-!      print*,'apres wght_th'
+!      PRINT*,'apres wght_th'
 !test pour prolonger la convection
       do ig=1,ngrid
@@ -384 +384 @@
       lalim_conv(ig)=1
       wght_th(ig,1)=1.
-!      print*,'lalim_conv ok',lalim_conv(ig),wght_th(ig,1)
+!      PRINT*,'lalim_conv ok',lalim_conv(ig),wght_th(ig,1)
       endif
       enddo