Changeset 4143 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r4120 r4143 25 25 26 26 USE dimphy, ONLY: klon, klev, klevp1 27 USE infotrac_phy, ONLY: nbtr, nqtot, nqo, type_trac, tracers, niso, nt raciso27 USE infotrac_phy, ONLY: nbtr, nqtot, nqo, type_trac, tracers, niso, ntiso 28 28 USE strings_mod, ONLY: maxlen 29 29 USE mod_phys_lmdz_para, ONLY: is_north_pole_phy,is_south_pole_phy … … 2598 2598 2599 2599 #ifdef ISO 2600 do ixt=1,nt raciso2600 do ixt=1,ntiso 2601 2601 ! write(*,*) 'ixt' 2602 2602 IF (vars_defined) zx_tmp_fi2d(:) = xtrain_fall(ixt,:) + xtsnow_fall(ixt,:) … … 2652 2652 2653 2653 !write(*,*) 'phys_output_write_mod 2531' 2654 enddo !do ixt=1,ntraciso2654 enddo 2655 2655 #endif 2656 2656
Note: See TracChangeset
for help on using the changeset viewer.