Changeset 4046 for LMDZ6/trunk/libf/phylmdiso/phyetat0.F90
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyetat0.F90
r4040 r4046 31 31 USE geometry_mod, ONLY : longitude_deg, latitude_deg 32 32 USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy 33 USE infotrac_phy, only: nbtr, nqo, type_trac, t name, niadv, &33 USE infotrac_phy, only: nbtr, nqo, type_trac, tracers, niadv, & 34 34 itr_indice ! C Risi 35 35 USE traclmdz_mod, ONLY : traclmdz_from_restart … … 476 476 iq=itr_indice(it) 477 477 iiq=niadv(iq) ! jyg 478 found=phyetat0_get(1,trs(:,it),"trs_"// tname(iiq), &479 "Surf trac"//tname(iiq),0.)478 found=phyetat0_get(1,trs(:,it),"trs_"//TRIM(tracers(iiq)%name), & 479 "Surf trac"//TRIM(tracers(iiq)%name),0.) 480 480 ENDDO 481 481 CALL traclmdz_from_restart(trs) … … 489 489 found=phyetat0_get(1,co2_send,"co2_send","co2 send",co2_ppm) 490 490 ENDIF 491 ENDIF !IF (type_trac == 'lmdz') THEN491 ENDIF 492 492 493 493 #ifdef ISO
Note: See TracChangeset
for help on using the changeset viewer.