Changeset 4380 for LMDZ6/trunk/libf/phylmdiso/fisrtilp.F90

Timestamp:

Jan 11, 2023, 10:45:36 AM (21 months ago)

Author:

evignon

Message:

premier commit d'un travail en cours sur l'externalisation de la routine lscp pour l'utilisation du replay
+ nettoyage

File:

• LMDZ6/trunk/libf/phylmdiso/fisrtilp.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/fisrtilp.F90

@@ -143 +143 @@
   ! Coeffients de fraction lessivee : pour OFF-LINE
   !
-  REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: pfrac_nucl
-  REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: pfrac_1nucl
-  REAL, DIMENSION(klon,klev),      INTENT(OUT)  :: pfrac_impa
+  REAL, DIMENSION(klon,klev),      INTENT(INOUT)  :: pfrac_nucl
+  REAL, DIMENSION(klon,klev),      INTENT(INOUT)  :: pfrac_1nucl
+  REAL, DIMENSION(klon,klev),      INTENT(INOUT)  :: pfrac_impa
   !
   ! Fraction d'aerosols lessivee par impaction et par nucleation