- Timestamp:
- 2019-12-13T10:19:48+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ABL/ablmod.F90
r12015 r12236 579 579 CALL iom_put( "taum_oce", ptaum ) 580 580 581 IF( ln_ctl) THEN581 IF(sn_cfctl%l_prtctl) THEN 582 582 CALL prt_ctl( tab2d_1=pwndm , clinfo1=' abl_stp: wndm : ' ) 583 583 CALL prt_ctl( tab2d_1=ptaui , clinfo1=' abl_stp: utau : ' ) … … 605 605 CALL lbc_lnk_multi( 'ablmod', ptaui_ice, 'U', -1., ptauj_ice, 'V', -1. ) 606 606 ! 607 IF( ln_ctl) CALL prt_ctl( tab2d_1=ptaui_ice , clinfo1=' abl_stp: putaui : ' &608 & , tab2d_2=ptauj_ice , clinfo2=' pvtaui : ' )607 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=ptaui_ice , clinfo1=' abl_stp: putaui : ' & 608 & , tab2d_2=ptauj_ice , clinfo2=' pvtaui : ' ) 609 609 #endif 610 610 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Note: See TracChangeset
for help on using the changeset viewer.