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

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

@@ -67 +67 @@
 !-------------------------------------------------------------------------
 
-!      print*,'calcul des ratqs'
+!      PRINT*,'calcul des ratqs'
 !   ratqs convectifs a l'ancienne en fonction de q(z=0)-q / q
 !   ----------------
@@ -87 +87 @@
 !-----------------------------------------------------------------------
       else if (iflag_cld_th==4) then
-         ptconvth(:,:)=.false.
+         ptconvth(:,:)=.FALSE.
          ratqsc(:,:)=0.
-         if(prt_level>=9) print*,'avant clouds_gno thermique'
-         call clouds_gno &
+         if(prt_level>=9) PRINT*,'avant clouds_gno thermique'
+         CALL clouds_gno &
          (klon,klev,q_seri,zqsat,clwcon0th,ptconvth,ratqsc,rnebcon0th)
-         if(prt_level>=9) print*,' CLOUDS_GNO OK'
+         if(prt_level>=9) PRINT*,' CLOUDS_GNO OK'
        
        endif
@@ -195 +195 @@
           if (iflag_ratqs == 10) then
              ! interactive ratqs in presence of cold pools     
-             call ratqs_inter(klon,klev,iflag_ratqs,pdtphys,paprs, &
+             CALL ratqs_inter(klon,klev,iflag_ratqs,pdtphys,paprs, &
                        ratqsbas,wake_deltaq,wake_s,q_seri,qtc_cv, sigt_cv, &
                        fm_therm,entr_therm,detr_therm,detrain_cv,fm_cv,fqd,fqcomp,sigd, &
@@ -206 +206 @@
              ratqss=ratqss+ratqs_inter_
           else if (iflag_ratqs == 11) then
-            print*,'avant ratqs_inter'
+            PRINT*,'avant ratqs_inter'
             ! interactive ratqs with several sources
-             call ratqs_inter(klon,klev,iflag_ratqs,pdtphys,paprs, &
+             CALL ratqs_inter(klon,klev,iflag_ratqs,pdtphys,paprs, &
                        ratqsbas,wake_deltaq,wake_s,q_seri,qtc_cv, sigt_cv, &
                        fm_therm,entr_therm,detr_therm,detrain_cv,fm_cv,fqd,fqcomp,sigd, &
@@ -215 +215 @@
           else if (iflag_ratqs == 12) then
              ! contribution of surface heterogeneities to ratqs
-             call ratqs_hetero(klon,klev,pctsrf,s_pblh,t2m,q2m,t_seri,q_seri,pplay,paprs,ratqs_hetero_)
+             CALL ratqs_hetero(klon,klev,pctsrf,s_pblh,t2m,q2m,t_seri,q_seri,pplay,paprs,ratqs_hetero_)
              ratqss=ratqss+ratqs_hetero_
           else if (iflag_ratqs == 13) then
              ! contribution of ubgrid orography to ratqs
-             call ratqs_oro(klon,klev,pctsrf,zstd,zqsat,t_seri,pplay,paprs,ratqs_oro_)
+             CALL ratqs_oro(klon,klev,pctsrf,zstd,zqsat,t_seri,pplay,paprs,ratqs_oro_)
              ratqss=ratqss+ratqs_oro_
           else if (iflag_ratqs == 14) then
              ! effect of subgrid-scale TKE on ratqs (in development)
-             call ratqs_tke(klon,klev,pdtphys,t_seri,q_seri,zqsat,pplay,paprs,omega,tke,tke_dissip,lmix,wprime,ratqs_tke_)     
+             CALL ratqs_tke(klon,klev,pdtphys,t_seri,q_seri,zqsat,pplay,paprs,omega,tke,tke_dissip,lmix,wprime,ratqs_tke_)
              ratqss=ratqss+ratqs_tke_
           endif