Changeset 5022 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Jul 5, 2024, 4:38:48 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r5007 r5022 207 207 ! Isotopes 208 208 o_xtprecip,o_xtplul,o_xtpluc,o_xtovap,o_xtoliq,o_xtcond, & 209 o_runoff_diag, o_xtrunoff_diag, & 209 210 o_xtevap,o_dxtdyn,o_dxtldyn,o_dxtcon,o_dxtlsc,o_dxteva, & 210 211 o_dxtajs,o_dxtvdf,o_dxtthe, o_dxtch4, & … … 392 393 d_xt_ajs, d_xt_ajsb, & 393 394 d_xt_prod_nucl,d_xt_cosmo,d_xt_decroiss, & 395 runoff_diag, xtrunoff_diag, & 394 396 #endif 395 397 ep, epmax_diag, & ! epmax_cape … … 2799 2801 #ifdef ISO 2800 2802 !write(*,*) 'tmp phys_output_write: ntiso=',ntiso 2803 !! runoff land bucket - ajout S. Nguyen 25 avril 2024 2804 CALL histwrite_phy(o_runoff_diag, runoff_diag) 2805 2801 2806 do ixt=1,ntiso 2802 2807 !write(*,*) 'ixt,o_xtovap(ixt)=',ixt,o_xtovap(ixt) … … 2812 2817 CALL histwrite_phy(o_xtovap(ixt), xt_seri(ixt,:,:)) 2813 2818 CALL histwrite_phy(o_xtoliq(ixt), xtl_seri(ixt,:,:)) 2819 2820 !! runoff land bucket - ajout S. Nguyen 25 avril 2024 2821 CALL histwrite_phy(o_xtrunoff_diag(ixt), xtrunoff_diag(ixt,:)) 2822 2814 2823 2815 2824 DO nsrf = 1, nbsrf ! ajout Camille 8 mai 2023
Note: See TracChangeset
for help on using the changeset viewer.