- Timestamp:
- 2017-08-18T16:35:46+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r6277 r8444 456 456 END SELECT 457 457 ! 458 CALL lbc_lnk( prd, 'T', 1.0_wp ) 459 ! 458 460 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', ovlap=1, kdim=jpk ) 459 461 !
Note: See TracChangeset
for help on using the changeset viewer.