Changeset 3418 for LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

Timestamp:

Dec 5, 2018, 3:21:39 PM (6 years ago)

Author:

acozic

Message:

Add modification to take into account value read in INCA restart file

File:

• LMDZ6/trunk/libf/phylmd/phytrac_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -77 +77 @@
        rfname,                                        &
        d_tr_dyn,                                      &   ! RomP
-       tr_seri)         
+       tr_seri, init_source)         
     !
     !======================================================================
@@ -256 +256 @@
     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
 
     !=======================================================================================
@@ -472 +473 @@
           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')