Changeset 3105 for trunk/LMDZ.GENERIC
- Timestamp:
- Oct 26, 2023, 8:48:49 AM (14 months ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd/dyn1d
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90
r2898 r3105 80 80 81 81 real dTstrat 82 real aerosol(llm,naerkind) ! aerosol tau (kg/kg)82 real,allocatable :: aerosol(:,:) ! aerosol tau (kg/kg) 83 83 real OLR_nu(1,L_NSPECTI) 84 84 real OSR_nu(1,L_NSPECTV) … … 326 326 !write(*,*) 1,llm,nq,0,86400.0,1,1.0,latitude,longitude,cell_area,rad,g,r,cpp 327 327 328 ! initialise naerkind (from callphys.def) and allocate aerosol(:,:) 329 naerkind=0 !default 330 call getin("naerkind",naerkind) 331 allocate(aerosol(llm,naerkind)) 332 aerosol(:,:)=0 333 328 334 do iq=1,nq 329 335 do ilay=1,nlayer -
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
r2972 r3105 15 15 use phyredem, only: physdem0,physdem1 16 16 use geometry_mod, only: init_geometry 17 use slab_ice_h, only: noceanmx18 17 use planete_mod, only: apoastr,periastr,year_day,peri_day, 19 18 & obliquit,nres,z0,lmixmin,emin_turb,coefvis,coefir, … … 136 135 ! added by BC for ocean 137 136 real rnat(1) 138 REAL tslab(1, noceanmx),tsea_ice(1),sea_ice(1)137 REAL tslab(1,2),tsea_ice(1),sea_ice(1) 139 138 real pctsrf_sic(1) 140 139
Note: See TracChangeset
for help on using the changeset viewer.