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

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

@@ -1 +1 @@
 ! $Id$
-!
+
 SUBROUTINE readaerosol_interp(id_aero, itap, pdtphys, r_day, first, pplay, paprs, t_seri, mass_out, pi_mass_out, load_src)
-!
+
 ! This routine will return the mass concentration at actual day(mass_out) and 
 ! the pre-industrial values(pi_mass_out) for aerosol corresponding to "id_aero".
 ! The mass concentrations for all aerosols are saved in this routine but each
 ! call to this routine only treats the aerosol "id_aero".
-!
+
 ! 1) Read in data for the whole year, only at first time step
 ! 2) Interpolate to the actual day, only at new day
@@ -29 +29 @@
   INCLUDE "clesphys.h"
 
-!
 ! Input:
 !****************************************************************************************
@@ -40 +39 @@
   REAL, DIMENSION(klon,klev+1),INTENT(IN):: paprs  ! pression between model layers
   REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri ! air temperature
-!      
+
 ! Output:      
 !****************************************************************************************
@@ -46 +45 @@
   REAL, INTENT(OUT) :: pi_mass_out(klon,klev) ! Mass of preindustrial aerosol (monthly mean data,from file) [ug AIBCM/m3]
   REAL, INTENT(OUT) :: load_src(klon) ! Load of aerosol (monthly mean data,from file) [kg/m3]
-!      
+
 ! Local Variables:
 !****************************************************************************************
@@ -97 +96 @@
 !****************************************************************************************
 ! Initialization
-!
+
 !****************************************************************************************
 
@@ -167 +166 @@
 ! 1) Read in data : corresponding to the actual year and preindustrial data. 
 !    Only for the first day of the year.
-!
+
 !****************************************************************************************
   IF ( (first .OR. iday==0) .AND. lnewday ) THEN 
@@ -270 +269 @@
 
 !    Calendar initialisation
-!
+
      DO i = 2, 13
        month_len(i) = REAL(ioget_mon_len(year_cur, i-1))
@@ -291 +290 @@
 ! - 2) Interpolate to the actual day.
 ! - 3) Interpolate to the model vertical grid.
-!
+
 !****************************************************************************************
 
@@ -297 +296 @@
 !****************************************************************************************
 ! 2) Interpolate to the actual day
-! 
+
 !****************************************************************************************
     ! Find which months and days to use for time interpolation
@@ -385 +384 @@
 !****************************************************************************************
 ! 3) Interpolate to the model vertical grid (target grid)
-!
+
 !****************************************************************************************
 
@@ -527 +526 @@
 !****************************************************************************************
 ! 4) Test for negative mass values
-!
+
 !****************************************************************************************
      IF (MINVAL(var_day(:,:,id_aero)) < 0.) THEN
@@ -571 +570 @@
 !****************************************************************************************
 ! Copy output from saved variables
-!
+
 !****************************************************************************************