- Timestamp:
- 2018-03-27T15:52:54+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r9169 r9440 295 295 END SELECT 296 296 ! 297 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', ovlap=1,kdim=jpk )297 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', kdim=jpk ) 298 298 ! 299 299 IF( ln_timing ) CALL timing_stop('eos-insitu') … … 462 462 END SELECT 463 463 ! 464 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', ovlap=1,kdim=jpk )464 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk ) 465 465 ! 466 466 IF( ln_timing ) CALL timing_stop('eos-pot') … … 671 671 ! 672 672 IF(ln_ctl) CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 673 & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', ovlap=1,kdim=jpk )673 & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', kdim=jpk ) 674 674 ! 675 675 IF( ln_timing ) CALL timing_stop('rab_3d') … … 930 930 END DO 931 931 ! 932 IF(ln_ctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', ovlap=1,kdim=jpk )932 IF(ln_ctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', kdim=jpk ) 933 933 ! 934 934 IF( ln_timing ) CALL timing_stop('bn2')
Note: See TracChangeset
for help on using the changeset viewer.