Changeset 3630 for LMDZ6/trunk/libf/phylmd/readaerosol_optic.F90

Timestamp:

Feb 10, 2020, 11:04:40 AM (4 years ago)

Author:

Laurent Fairhead

Message:

Parameter new_aod is not needed anymore as it is assumed to be true
all the time. This means that we cannot replay AR4 simulations with new
LMDZ sources (we probably couldn't anyway)
LF, OB

File:

• LMDZ6/trunk/libf/phylmd/readaerosol_optic.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/readaerosol_optic.F90

@@ -1 +1 @@
 ! $Id$
 !
-SUBROUTINE readaerosol_optic(debut, new_aod, flag_aerosol, itap, rjourvrai, &
+SUBROUTINE readaerosol_optic(debut, flag_aerosol, itap, rjourvrai, &
      pdtphys, pplay, paprs, t_seri, rhcl, presnivs, &
      mass_solu_aero, mass_solu_aero_pi, &
@@ -22 +22 @@
 !****************************************************************************************
   LOGICAL, INTENT(IN)                      :: debut
-  LOGICAL, INTENT(IN)                      :: new_aod
   INTEGER, INTENT(IN)                      :: flag_aerosol
   INTEGER, INTENT(IN)                      :: itap
@@ -189 +188 @@
   END DO
 
-  IF (new_aod) THEN 
-
 ! RAF delete??     fractnat_allaer(:,:) = 0.
 ! RAF fractnat_allaer -> m_allaer_pi
@@ -206 +203 @@
           flag_aerosol, pplay, t_seri,   &
           tausum_aero, tau3d_aero, presnivs)
-  ELSE
-
-     CALL aeropt(pplay, paprs, t_seri, sulfate, rhcl, &
-          tau_aero(:,:,id_ASSO4M_phy,:), piz_aero(:,:,id_ASSO4M_phy,:), cg_aero(:,:,id_ASSO4M_phy,:), aerindex)
-     
-  END IF
 
 ! Diagnostics calculation for CMIP5 protocol