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

Timestamp:

Jul 23, 2024, 3:29:36 PM (3 months 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/concvl.F90 (modified) (3 diffs)

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

@@ -338 +338 @@
 ! do k=1,lalim_conv(i)
 ! em_wght(k)=wght_th(i,k)
-! print*,'em_wght=',em_wght(k),wght_th(i,k)
+! PRINT*,'em_wght=',em_wght(k),wght_th(i,k)
 ! END DO
 ! END DO
@@ -547 +547 @@
     END DO
   END IF
-! print*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
+! PRINT*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
 
   DO k = 1, klev
@@ -562 +562 @@
   IF (prt_level>=20) THEN
     DO k = 1, klev
-! print*,'physiq apres_add_con i k it d_u d_v d_t d_q qdl0',igout, &
+! PRINT*,'physiq apres_add_con i k it d_u d_v d_t d_q qdl0',igout, &
 !         k,itap,d_u_con(igout,k) ,d_v_con(igout,k), d_t_con(igout,k), &
 !         d_q_con(igout,k),dql0(igout,k)
-! print*,'phys apres_add_con itap Ma cin ALE ALP wak t q undi t q', &
+! PRINT*,'phys apres_add_con itap Ma cin ALE ALP wak t q undi t q', &
 !         itap,Ma(igout,k),cin(igout),ALE(igout), ALP(igout), &
 !         t_wake(igout,k),q_wake(igout,k),t_undi(igout,k),q_undi(igout,k)
-! print*,'phy apres_add_con itap CON rain snow EMA wk1 wk2 Vpp mip', &
+! PRINT*,'phy apres_add_con itap CON rain snow EMA wk1 wk2 Vpp mip', &
 !         itap,rain_con(igout),snow_con(igout),ema_work1(igout,k), &
 !         ema_work2(igout,k),Vprecip(igout,k), mip(igout,k)
-! print*,'phy apres_add_con itap upwd dnwd dnwd0 cape tvp Tconv ', &
+! PRINT*,'phy apres_add_con itap upwd dnwd dnwd0 cape tvp Tconv ', &
 !         itap,upwd(igout,k),dnwd(igout,k),dnwd0(igout,k),cape(igout), &
 !         tvp(igout,k),Tconv(igout,k)
-! print*,'phy apres_add_con itap dtvpdt dtvdq dplcl dplcldr qcondc', &
+! PRINT*,'phy apres_add_con itap dtvpdt dtvdq dplcl dplcldr qcondc', &
 !         itap,dtvpdt1(igout,k),dtvpdq1(igout,k),dplcldt(igout), &
 !         dplcldr(igout),qcondc(igout,k)
-! print*,'phy apres_add_con itap wd pmflxr Kpmflxr Kp1 Kpmflxs Kp1', &
+! PRINT*,'phy apres_add_con itap wd pmflxr Kpmflxr Kp1 Kpmflxs Kp1', &
 !         itap,wd(igout),pmflxr(igout,k),pmflxr(igout,k+1),pmflxs(igout,k), &
 !         pmflxs(igout,k+1)
-! print*,'phy apres_add_con itap da phi mp ftd fqd lalim wgth', &
+! PRINT*,'phy apres_add_con itap da phi mp ftd fqd lalim wgth', &
 !         itap,da(igout,k),phi(igout,k,k),mp(igout,k),ftd(igout,k), &
 !         fqd(igout,k),lalim_conv(igout),wght_th(igout,k)