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

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE stratosphere_mask(missing_val, pphis, t_seri, pplay, xlat)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!
+
 ! determination of tropopause height and temperature from gridded temperature data
-!
+
 ! reference: Reichler, T., M. Dameris, and R. Sausen (GRL, 10.1029/2003GL018240, 2003)
 ! modified: 6/28/06 tjr
@@ -13 +13 @@
 ! committed to LMDz by O. Boucher (2016) with a mistake 
 ! mistake corrected by O. Boucher (2017-12-11)
-!
+
 ! input:  temp(nlon,nlat,nlev)  3D-temperature field 
 !         ps(nlon,nlat)         2D-surface pressure field
@@ -23 +23 @@
 !         pliml                 lower limit for tropopause pressure 
 !         gamma                 tropopause criterion, e.g. -0.002 K/m
-!
+
 ! output: p_tropopause(klon)    tropopause pressure in Pa with missing values
 !         t_tropopause(klon)    tropopause temperature in K with missing values
@@ -29 +29 @@
 !         stratomask            stratospheric mask withtout missing values
 !         ifil                  # of undetermined values
-!
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -83 +83 @@
   ENDIF
   ENDDO
-!
+
 ENDIF
-!
+
 DO i=1, klon
 DO k=1, klev