Changeset 3433 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/phytrac_mod.F90

Timestamp:

Jan 21, 2019, 3:03:51 PM (6 years ago)

Author:

acozic

Message:

merge with rev 3418 of trunk - add modification to take into account values read in INCA restart file

File:

• LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/phytrac_mod.F90 (modified) (3 diffs)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/phytrac_mod.F90

@@ -77 +77 @@
        rfname,                                        &
        d_tr_dyn,                                      &   ! RomP
-       tr_seri)         
+       tr_seri, init_source)         
     !
     !======================================================================
@@ -239 +239 @@
     REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf ! Pourcentage de sol (nature du sol)
 
+    REAL, DIMENSION(klon,nbtr), INTENT(IN) :: init_source
 
     ! Output argument
@@ -453 +454 @@
           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')