Changeset 3418 for LMDZ6/trunk/libf


Ignore:
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

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3412 r3418  
    11441144    REAL, dimension(klon, klev) :: cldfrarad   ! fraction nuageuse
    11451145
     1146#ifdef INCA
     1147    ! set de variables utilisees pour l'initialisation des valeurs provenant de INCA
     1148    REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_tauinca
     1149    REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_pizinca
     1150    REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_cginca
     1151    REAL, DIMENSION(klon,klev,nbands) :: init_ccminca
     1152#endif
     1153    REAL, DIMENSION(klon,nbtr) :: init_source
     1154
    11461155    !lwoff=y : offset LW CRE for radiation code and other schemes
    11471156    REAL, SAVE :: betalwoff
     
    17631772               io_lon, &
    17641773               io_lat, &
    1765                chemistry_couple)
     1774               chemistry_couple, &
     1775               init_source, &
     1776               init_tauinca, &
     1777               init_pizinca, &
     1778               init_cginca, &
     1779               init_ccminca)
     1780
     1781
     1782          ! initialisation des variables depuis le restart de inca
     1783          ccm(:,:,:) = init_ccminca
     1784          tau_aero(:,:,:,:) = init_tauinca
     1785          piz_aero(:,:,:,:) = init_pizinca
     1786          cg_aero(:,:,:,:) = init_cginca
     1787!         
     1788
    17661789
    17671790          CALL VTe(VTinca)
     
    45454568         rfname, &
    45464569         d_tr_dyn, &                                 !<<RomP
    4547          tr_seri)
     4570         tr_seri, init_source)
    45484571#endif
    45494572    ENDIF    ! (iflag_phytrac=1)
  • LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

    r3361 r3418  
    7777       rfname,                                        &
    7878       d_tr_dyn,                                      &   ! RomP
    79        tr_seri)         
     79       tr_seri, init_source)         
    8080    !
    8181    !======================================================================
     
    256256    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA]
    257257    REAL,DIMENSION(klon,klev)                    :: sourceBE
     258    REAL,DIMENSION(klon,nbtr), INTENT(IN) :: init_source
    258259
    259260    !=======================================================================================
     
    472473          CALL traclmdz_init(pctsrf,xlat,xlon,ftsol,tr_seri,t_seri,pplay,sh,pdtphys,aerosol,lessivage)
    473474       CASE('inca')
    474           source(:,:)=0.
     475          source(:,:)=init_source(:,:)
    475476          CALL tracinca_init(aerosol,lessivage)
    476477       CASE('repr')
Note: See TracChangeset for help on using the changeset viewer.