Changeset 3852 for LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90
- Timestamp:
- Feb 22, 2021, 5:28:31 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90
r3851 r3852 23 23 USE geometry_mod, ONLY : longitude_deg, latitude_deg 24 24 USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy 25 USE infotrac_phy, only: nbtr, nqo, type_trac, t name, niadv25 USE infotrac_phy, only: nbtr, nqo, type_trac, tracers, niadv 26 26 USE traclmdz_mod, ONLY : traclmdz_from_restart 27 27 USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, co2_send … … 443 443 !! iiq=niadv(it+2) ! jyg 444 444 iiq=niadv(it+nqo) ! jyg 445 found=phyetat0_get(1,trs(:,it),"trs_"//t name(iiq), &446 "Surf trac"//t name(iiq),0.)445 found=phyetat0_get(1,trs(:,it),"trs_"//tracers(iiq)%name, & 446 "Surf trac"//tracers(iiq)%name,0.) 447 447 ENDDO 448 448 CALL traclmdz_from_restart(trs)
Note: See TracChangeset
for help on using the changeset viewer.