Changeset 2575 for LMDZ5/branches
- Timestamp:
- Jun 16, 2016, 10:47:42 AM (9 years ago)
- Location:
- LMDZ5/branches/LMDZ6_rc0/libf
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ6_rc0/libf/dyn3d_common/infotrac.F90
r2381 r2575 152 152 endif 153 153 ELSE ! type_trac=inca 154 ! nbtr has been read from INCA by init_const_lmdz() in gcm.F 154 #ifdef INCA 155 CALL Init_chem_inca_trac(nbtr) 156 #endif 155 157 nqtrue=nbtr+2 156 158 END IF -
LMDZ5/branches/LMDZ6_rc0/libf/dyn3dmem/gcm.F
r2381 r2575 237 237 #ifdef INCA 238 238 call init_const_lmdz( 239 $ nbtr,anneeref,dayref,239 $ anneeref,dayref, 240 240 $ iphysiq,day_step,nday, 241 241 $ nbsrf, is_oce,is_sic, -
LMDZ5/branches/LMDZ6_rc0/libf/phylmd/aero_mod.F90
r2160 r2575 62 62 63 63 ! 3/ Number of aerosol groups 64 INTEGER, PARAMETER :: naero_grp = 9 64 INTEGER, PARAMETER :: naero_grp = 12 65 ! if info_trac = inca 66 ! 1 = ZERO 67 ! 2 = AER total 68 ! 3 = NAT 69 ! 4 = BC 70 ! 5 = SO4 71 ! 6 = POM 72 ! 7 = DUST 73 ! 8 = SS 74 ! 9 = FNO3 75 ! 10 = DNO3 76 ! 11 = SNO3 77 ! 12 = empty actually 78 ! else 65 79 ! 1 = ZERO 66 80 ! 2 = AER total -
LMDZ5/branches/LMDZ6_rc0/libf/phylmd/phytrac_mod.F90
r2381 r2575 101 101 102 102 USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 103 USE aero_mod, ONLY : naero_grp 103 104 104 105 IMPLICIT NONE … … 173 174 LOGICAL,INTENT(IN) :: aerosol_couple 174 175 REAL,DIMENSION(klon,klev),INTENT(IN) :: flxmass_w 175 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: tau_aero176 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: piz_aero177 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: cg_aero178 CHARACTER(len=4),DIMENSION( 9),INTENT(IN) :: rfname176 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: tau_aero 177 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero 178 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero 179 CHARACTER(len=4),DIMENSION(naero_grp),INTENT(IN) :: rfname 179 180 REAL,DIMENSION(klon,klev,2),INTENT(IN) :: ccm 180 181 !... K.Emanuel -
LMDZ5/branches/LMDZ6_rc0/libf/phylmd/radlwsw_m.F90
r2160 r2575 74 74 USE YOERRTWN , ONLY : DELWAVE ,TOTPLNK 75 75 USE YOMPHY3 , ONLY : RII0 76 #else77 USE aero_mod, ONLY : nbands_lw_rrtm78 76 #endif 77 USE aero_mod 79 78 80 79 !====================================================================== … … 187 186 LOGICAL, INTENT(in) :: flag_aerosol_strat ! use stratospheric aerosols 188 187 REAL, INTENT(in) :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV) 189 REAL, INTENT(in) :: tau_aero(KLON,KLEV, 9,2) ! aerosol optical properties (see aeropt.F)190 REAL, INTENT(in) :: piz_aero(KLON,KLEV, 9,2) ! aerosol optical properties (see aeropt.F)191 REAL, INTENT(in) :: cg_aero(KLON,KLEV, 9,2) ! aerosol optical properties (see aeropt.F)188 REAL, INTENT(in) :: tau_aero(KLON,KLEV,naero_grp,2) ! aerosol optical properties (see aeropt.F) 189 REAL, INTENT(in) :: piz_aero(KLON,KLEV,naero_grp,2) ! aerosol optical properties (see aeropt.F) 190 REAL, INTENT(in) :: cg_aero(KLON,KLEV,naero_grp,2) ! aerosol optical properties (see aeropt.F) 192 191 !--OB 193 192 REAL, INTENT(in) :: tau_aero_sw_rrtm(KLON,KLEV,2,NSW) ! aerosol optical properties RRTM … … 285 284 REAL(KIND=8) zsolsw0(kdlon), zsollw0(kdlon) 286 285 REAL(KIND=8) zznormcp 287 REAL(KIND=8) tauaero(kdlon,kflev, 9,2) ! aer opt properties288 REAL(KIND=8) pizaero(kdlon,kflev, 9,2)289 REAL(KIND=8) cgaero(kdlon,kflev, 9,2)286 REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2) ! aer opt properties 287 REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2) 288 REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2) 290 289 REAL(KIND=8) PTAUA(kdlon,2,kflev) ! present-day value of cloud opt thickness (PTAU is pre-industrial value), local use 291 290 REAL(KIND=8) POMEGAA(kdlon,2,kflev) ! dito for single scatt albedo -
LMDZ5/branches/LMDZ6_rc0/libf/phylmd/sw_aeroAR4.F90
r1910 r2575 22 22 USE dimphy 23 23 USE phys_output_mod, ONLY : swaero_diag 24 USE aero_mod, ONLY : naero_grp 24 25 IMPLICIT NONE 25 26 … … 140 141 LOGICAL flag_aerosol_strat ! use stratospehric aerosols 141 142 INTEGER flag_aerosol ! global flag for aerosol 0 (no aerosol) or 1-5 (aerosols) 142 REAL(KIND=8) tauaero(kdlon,kflev, 9,2) ! aerosol optical properties143 REAL(KIND=8) pizaero(kdlon,kflev, 9,2) ! (see aeropt.F)144 REAL(KIND=8) cgaero(kdlon,kflev, 9,2) ! -"-143 REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2) ! aerosol optical properties 144 REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2) ! (see aeropt.F) 145 REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2) ! -"- 145 146 REAL(KIND=8) PTAUA(KDLON,2,KFLEV) ! CLOUD OPTICAL THICKNESS (present-day value) 146 147 REAL(KIND=8) POMEGAA(KDLON,2,KFLEV) ! SINGLE SCATTERING ALBEDO -
LMDZ5/branches/LMDZ6_rc0/libf/phylmd/tracinca_mod.F90
r2381 r2575 48 48 USE indice_sol_mod 49 49 50 50 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat 51 USE aero_mod, ONLY : naero_grp 52 51 53 IMPLICIT NONE 52 54 … … 97 99 LOGICAL,INTENT(IN) :: aerosol_couple 98 100 REAL,DIMENSION(klon,klev),INTENT(IN) :: flxmass_w 99 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: tau_aero100 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: piz_aero101 REAL,DIMENSION(klon,klev, 9,2),INTENT(IN) :: cg_aero102 CHARACTER(len=4),DIMENSION( 9),INTENT(IN) :: rfname101 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: tau_aero 102 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero 103 REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero 104 CHARACTER(len=4),DIMENSION(naero_grp),INTENT(IN) :: rfname 103 105 REAL,DIMENSION(klon,klev,2),INTENT(IN) :: ccm 104 106 … … 148 150 rh,tau_aero,piz_aero,cg_aero, & 149 151 rfname,ccm,lafin, config_inca) 150 #endif151 152 152 153 #ifdef INCA154 153 CALL chemmain (tr_seri, & !mmr 155 154 nstep, & !nstep … … 183 182 sh, & !sh 184 183 rh, & !rh 185 iip1,& !nx186 jjp1,& !ny184 nbp_lon, & !nx 185 nbp_lat, & !ny 187 186 source ) 188 187 #endif
Note: See TracChangeset
for help on using the changeset viewer.