Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90 (modified) (22 diffs)

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE phys_local_var_mod
   USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
   ! Variables locales pour effectuer les appels en serie
   !======================================================================
-  !
-  !
+
+
   !======================================================================
   ! Declaration des variables
@@ -206 +206 @@
   REAL, SAVE, ALLOCATABLE :: ZFSDN0(:, :), ZFSUP0(:, :)      ! diag
   !$OMP THREADPRIVATE(ZFSDN0,ZFSUP0)
-  !
+
   REAL, SAVE, ALLOCATABLE :: stratomask(:, :)
   !$OMP THREADPRIVATE(stratomask)
@@ -389 +389 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: s_lcl, s_pblh, s_pblt, s_therm
   !$OMP THREADPRIVATE(s_lcl, s_pblh, s_pblt, s_therm)
-  !
+
   !nrlmd+jyg<
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: s_pblh_x, s_pblh_w
@@ -396 +396 @@
   !$OMP THREADPRIVATE(s_lcl_x, s_lcl_w)
   !>nrlmd+jyg
-  !
+
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: slab_wfbils
   !$OMP THREADPRIVATE(slab_wfbils)
@@ -426 +426 @@
 !$OMP THREADPRIVATE(xtrain_lsc)
 #endif
-  !
+
   !jyg+nrlmd<
   !!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
@@ -476 +476 @@
   !$OMP THREADPRIVATE(ratqsc)
   !>jyg+nrlmd
-  !
+
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: wbeff, convoccur, zmax_th, zq2m, zt2m
   !$OMP THREADPRIVATE(wbeff, convoccur, zmax_th, zq2m, zt2m)
@@ -503 +503 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: epmax_diag ! epmax_cape
   !$OMP THREADPRIVATE(epmax_diag)
-  !
+
   !  Deep convective variables used in phytrac
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: ep ! epmax_cape
@@ -577 +577 @@
 #endif
 #endif
-  !
+
   !      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: coefh, coefm, lambda_th
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: lambda_th
@@ -713 +713 @@
   !$OMP THREADPRIVATE(dqsfreez)
 
-
-
-
-
-  !
   ! variables for stratospheric aerosol
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: d_q_emiss
@@ -773 +768 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :, :) :: nd_mode
   !$OMP THREADPRIVATE(nd_mode)
-  !
+
   !---3D budget variables
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: budg_3D_nucl
@@ -787 +782 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: budg_3D_backgr_so2
   !$OMP THREADPRIVATE(budg_3D_backgr_so2)
-  !
+
   !---2D budget variables
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_ocs
@@ -920 +915 @@
     ZFLDN0 = 0.
     ALLOCATE(ZFLUP0(klon, klev + 1), ZFSDN0(klon, klev + 1), ZFSUP0(klon, klev + 1))
-    !
+
     ALLOCATE(topswad_aero(klon), solswad_aero(klon))
     ALLOCATE(topswai_aero(klon), solswai_aero(klon))
@@ -1040 +1035 @@
     ALLOCATE(s_lcl(klon))
     ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon))
-    !
+
     !nrlmd+jyg<
     ALLOCATE(s_pblh_x(klon), s_pblh_w(klon))
     ALLOCATE(s_lcl_x(klon), s_lcl_w(klon))
     !>nrlmd+jyg
-    !
+
     ALLOCATE(slab_wfbils(klon), tpot(klon), tpote(klon), ue(klon))
     ALLOCATE(uq(klon), ve(klon), vq(klon), zxffonte(klon))
@@ -1057 +1052 @@
     ALLOCATE(rain_num(klon))
     ALLOCATE(qlth(klon, klev), qith(klon, klev), qsith(klon, klev), wiceth(klon, klev))
-    !
+
 #ifdef ISO
       ALLOCATE(xtevap(ntraciso,klon))
@@ -1070 +1065 @@
       runoff_diag(:)=0. ; xtrunoff_diag(:,:)=0. ! because variables are only given values on knon grid points
 #endif
-    !
+
     ALLOCATE(sens_x(klon), sens_w(klon))
     ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon))
@@ -1093 +1088 @@
       ALLOCATE(xt_therm(ntraciso,klon,klev))
 #endif
-    !
+
     ALLOCATE(ptconv(klon, klev))
     ALLOCATE(ratqsc(klon, klev))
-    !
+
     ALLOCATE(wbeff(klon), convoccur(klon), zmax_th(klon))
     ALLOCATE(zq2m(klon), zt2m(klon), weak_inversion(klon))
@@ -1131 +1126 @@
     ! FC
     ALLOCATE(zxfluxq(klon, klev), zxfluxt(klon, klev))
-    !
+
     !  Deep convective variables used in phytrac
     ALLOCATE(pmflxr(klon, klev + 1), pmflxs(klon, klev + 1))
@@ -1436 +1431 @@
     DEALLOCATE(tal1, pal1, pab1, pab2)
     DEALLOCATE(ptstar, pt0, slp)
-    !
+
     DEALLOCATE(alp_wake)
     DEALLOCATE(wake_h, wake_k)
@@ -1454 +1449 @@
       DEALLOCATE(d_deltaxt_vdf)
 #endif
-    !
+
     DEALLOCATE(bils)
     DEALLOCATE(cdragm, cdragh, cldh, cldl)
@@ -1462 +1457 @@
     DEALLOCATE(prw, prlw, prsw, prbsw, water_budget, zustar, zu10m, zv10m, rh2m, s_lcl)
     DEALLOCATE(s_pblh, s_pblt, s_therm)
-    !
+
     !nrlmd+jyg<
     DEALLOCATE(s_pblh_x, s_pblh_w)
     DEALLOCATE(s_lcl_x, s_lcl_w)
     !>nrlmd+jyg
-    !
+
     DEALLOCATE(slab_wfbils, tpot, tpote, ue)
     DEALLOCATE(uq, ve, vq, zxffonte)
@@ -1478 +1473 @@
     DEALLOCATE(rain_num)
     DEALLOCATE(qlth, qith, qsith, wiceth)
-    !
+
     DEALLOCATE(sens_x, sens_w)
     DEALLOCATE(zxfluxlat_x, zxfluxlat_w)
@@ -1503 +1498 @@
       DEALLOCATE(h1_diag,runoff_diag,xtrunoff_diag)
 #endif
-    !
+
     DEALLOCATE(ptconv)
     DEALLOCATE(ratqsc)
-    !
+
     DEALLOCATE(wbeff, convoccur, zmax_th)
     DEALLOCATE(zq2m, zt2m, weak_inversion)