Changeset 4046 for LMDZ6/trunk/libf/phylmdiso/phyredem.F90
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyredem.F90
r3940 r4046 38 38 USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var 39 39 USE traclmdz_mod, ONLY : traclmdz_to_restart 40 USE infotrac_phy, ONLY: type_trac, niadv, t name, nbtr, nqo,itr_indice40 USE infotrac_phy, ONLY: type_trac, niadv, tracers, nbtr, nqo,itr_indice 41 41 #ifdef ISO 42 42 USE infotrac_phy, ONLY: itr_indice,niso,ntraciso … … 350 350 iq=itr_indice(it) ! jyg 351 351 iiq=niadv(iq) ! jyg 352 CALL put_field(pass,"trs_"//t name(iiq), "", trs(:, it))352 CALL put_field(pass,"trs_"//tracers(iiq)%name, "", trs(:, it)) 353 353 END DO 354 354 IF (carbon_cycle_cpl) THEN … … 407 407 IF (pass==2) CALL close_restartphy 408 408 ENDDO ! DO pass=1,2 ! pass=1 netcdf definition ; pass=2 netcdf write 409 410 411 409 412 410 !$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.