Changeset 3433 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90
- Timestamp:
- Jan 21, 2019, 3:03:51 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90
r3340 r3433 1076 1076 REAL, dimension(klon, klev) :: cldfrarad ! fraction nuageuse 1077 1077 1078 #ifdef INCA 1079 ! set de variables utilisees pour l'initialisation des valeurs provenant de INCA 1080 REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_tauinca 1081 REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_pizinca 1082 REAL, DIMENSION(klon,klev,naero_grp,nbands) :: init_cginca 1083 REAL, DIMENSION(klon,klev,nbands) :: init_ccminca 1084 #endif 1085 REAL, DIMENSION(klon,nbtr) :: init_source 1086 1078 1087 INTEGER :: nbtr_tmp ! Number of tracer inside concvl 1079 1088 REAL, dimension(klon,klev) :: sh_in ! Specific humidity entering in phytrac … … 1591 1600 io_lon, & 1592 1601 io_lat, & 1593 chemistry_couple) 1602 chemistry_couple, & 1603 init_source, & 1604 init_tauinca, & 1605 init_pizinca, & 1606 init_cginca, & 1607 init_ccminca) 1608 1609 ! initialisation des variables depuis le restart de inca 1610 ccm(:,:,:) = init_ccminca 1611 tau_aero(:,:,:,:) = init_tauinca 1612 piz_aero(:,:,:,:) = init_pizinca 1613 cg_aero(:,:,:,:) = init_cginca 1594 1614 1595 1615 CALL VTe(VTinca) … … 4294 4314 rfname, & 4295 4315 d_tr_dyn, & !<<RomP 4296 tr_seri )4316 tr_seri, init_source) 4297 4317 4298 4318 IF (offline) THEN
Note: See TracChangeset
for help on using the changeset viewer.