Changeset 3419 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phytrac_mod.F90

Timestamp:

Dec 6, 2018, 1:58:51 PM (6 years ago)

Author:

acozic

Message:

merge with rev 3418 of trunk

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phytrac_mod.F90 (modified) (3 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phytrac_mod.F90

@@ -77 +77 @@
        rfname,                                        &
        d_tr_dyn,                                      &   ! RomP
-       tr_seri)         
+       tr_seri, init_source)         
     !
     !======================================================================
@@ -254 +254 @@
     REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA]
     REAL,DIMENSION(klon,klev)                    :: sourceBE 
+    REAL,DIMENSION(klon,nbtr), INTENT(IN) :: init_source
 
     !=======================================================================================
@@ -470 +471 @@
           CALL traclmdz_init(pctsrf,xlat,xlon,ftsol,tr_seri,t_seri,pplay,sh,pdtphys,aerosol,lessivage)
        CASE('inca')
-          source(:,:)=0.
+          source(:,:)=init_source(:,:)
           CALL tracinca_init(aerosol,lessivage)
        CASE('repr')