Changeset 3418 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Dec 5, 2018, 3:21:39 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3412 r3418 1144 1144 REAL, dimension(klon, klev) :: cldfrarad ! fraction nuageuse 1145 1145 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 1146 1155 !lwoff=y : offset LW CRE for radiation code and other schemes 1147 1156 REAL, SAVE :: betalwoff … … 1763 1772 io_lon, & 1764 1773 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 1766 1789 1767 1790 CALL VTe(VTinca) … … 4545 4568 rfname, & 4546 4569 d_tr_dyn, & !<<RomP 4547 tr_seri )4570 tr_seri, init_source) 4548 4571 #endif 4549 4572 ENDIF ! (iflag_phytrac=1)
Note: See TracChangeset
for help on using the changeset viewer.