- 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/OCE/ZDF/zdfgls.F90
r11960 r12236 825 825 p_avt(:,:,1) = 0._wp 826 826 ! 827 IF( ln_ctl) THEN827 IF(sn_cfctl%l_prtctl) THEN 828 828 CALL prt_ctl( tab3d_1=en , clinfo1=' gls - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk) 829 829 CALL prt_ctl( tab3d_1=p_avm, clinfo1=' gls - m: ', kdim=jpk )
Note: See TracChangeset
for help on using the changeset viewer.