- Timestamp:
- 2019-12-12T13:15:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfgls.F90
r12202 r12210 824 824 p_avt(:,:,1) = 0._wp 825 825 ! 826 IF( ln_ctl) THEN826 IF(sn_cfctl%l_prtctl) THEN 827 827 CALL prt_ctl( tab3d_1=en , clinfo1=' gls - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk) 828 828 CALL prt_ctl( tab3d_1=p_avm, clinfo1=' gls - m: ', kdim=jpk )
Note: See TracChangeset
for help on using the changeset viewer.