Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 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/phylmdiso/add_phys_tend_mod.F90 (modified) (17 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

@@ -1 @@
-!
+
 ! $Id$
-!
-!
+
+
 MODULE add_phys_tend_mod
 
@@ -120 +120 @@
   RETURN
 END SUBROUTINE add_pbl_tend
-!
+
 ! $Id$
-!
+
 SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,zdqbs,paprs,text, &
                           abortphy,flag_inhib_tend, itap, diag_mode &
@@ -175 +175 @@
 INTEGER,                        INTENT(IN)    :: diag_mode       ! 0 -> normal effective mode
                                                                  ! 1 -> only conservation stats are computed
-!
+
 REAL, DIMENSION(klon,klev),     INTENT(INOUT) :: zdq
 #ifdef ISO
@@ -204 +204 @@
 REAL, DIMENSION(ntraciso,klon,klev)   :: sav_xtl_seri, sav_xts_seri, sav_xt_seri
 #endif
-!
+
 INTEGER i, k,j, n
 INTEGER jadrs(klon*klev), jbad
@@ -216 +216 @@
 logical, save :: first=.true.
 !$OMP THREADPRIVATE(first)
-!
+
 !======================================================================
 ! Variables for energy conservation tests
 !======================================================================
-!
 
 ! zh_col-------  total enthalpy of vertical air column
@@ -234 +233 @@
 ! zqbs_col------  total mass of blowing snow (kg/m2)
 ! zek_col------  total kinetic energy (kg/m2)
-!
+
 REAL zairm(klon, klev) ! layer air mass (kg/m2)
 REAL zqw_col(klon,2)
@@ -273 +272 @@
         first=.false.
      endif
-!
+
 !  print *,'add_phys_tend: paprs ',paprs
 ! When in diagnostic mode, save initial values of out variables
@@ -422 +421 @@
       ENDDO
 ENDIF
-!
+
 !=====================================================================================
 ! Impression, warning et correction en cas de probleme moins important
@@ -531 +530 @@
 #endif
 #endif
-!
 
 !IM ajout memes tests pour reverifier les jbad, jqbad beg
@@ -572 +570 @@
       ENDDO
 ENDIF 
-!
+
 IF (jqbad > 0) THEN
       DO j = 1, jqbad
@@ -646 +644 @@
 
   end if ! end if (fl_ebil .GT. 0)
-!
+
 ! When in diagnostic mode, restore "out" variables to initial values.
   IF (diag_mode == 1) THEN
@@ -706 +704 @@
 REAL, DIMENSION(nlon,nlev)      :: temp_n, qv_n, ql_n, qs_n, qbs_n
 
-
-!
 INTEGER k, n
 
@@ -713 +709 @@
 logical, save :: first=.true.
 !$OMP THREADPRIVATE(first)
-!
+
 !======================================================================
 ! Variables for energy conservation tests
 !======================================================================
-!
 
 ! zh_col-------  total enthalpy of vertical air column
@@ -730 +725 @@
 ! zqbs_col------  total mass of blowing snow (kg/m2)
 ! zek_col------  total kinetic energy (kg/m2)
-!
+
 REAL zairm(nlon, nlev) ! layer air mass (kg/m2)
 REAL zqw_col(nlon,2)
@@ -754 +749 @@
         first=.false.
      endif
-!
+
 !  print *,'add_phys_tend: paprs ',paprs
 !======================================================================
@@ -832 +827 @@
 
   end if ! end if (fl_ebil .GT. 0)
-!
 
   RETURN
@@ -978 +972 @@
   if ( abs(bilq_error) > bilq_seuil) bilq_ok=1
   if ( abs(bilh_error) > bilh_seuil) bilh_ok=1
-!
+
 ! Print diagnostics
 ! =================