Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_closure.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_closure.F90 (modified) (3 diffs)

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

@@ -36 +36 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!print*,'THERMCELL CLOSURE 26E'
+!PRINT*,'THERMCELL CLOSURE 26E'
 
 alim_star2(:)=0.
@@ -44 +44 @@
 ! Indice vertical max (max de lalim) atteint par les thermiques sur le domaine
 llmax=1
-do ig=1,ngrid
+DO ig=1,ngrid
    if (lalim(ig)>llmax) llmax=lalim(ig)
-enddo
+END DO
 
 
 ! Calcul des integrales sur la verticale de alim_star et de
 !   alim_star^2/(rho dz)
-do k=1,llmax-1
+DO k=1,llmax-1
    do ig=1,ngrid
       if (k<lalim(ig)) then
@@ -59 +59 @@
       endif
    enddo
-enddo
+END DO
 
 
-do ig=1,ngrid
+DO ig=1,ngrid
    if (alim_star2(ig)>1.e-10) then
       f(ig)=wmax(ig)*alim_star_tot(ig)/  &
 &     (max(500.,zmax(ig))*r_aspect*alim_star2(ig))
    endif
-enddo
+END DO