Changeset 9439
- Timestamp:
- 2018-03-27T15:39:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r9367 r9439 446 446 IF( l_sbc_clo .AND. (.NOT. ln_diurnal_only) ) CALL sbc_clo( kt ) 447 447 448 ! RBbug do not understand why see ticket 667449 ! clem: it looks like it is necessary for the north fold (in certain circumstances). Don't know why.450 CALL lbc_lnk( emp, 'T', 1. )448 !!$!RBbug do not understand why see ticket 667 449 !!$!clem: it looks like it is necessary for the north fold (in certain circumstances). Don't know why. 450 !!$ CALL lbc_lnk( emp, 'T', 1. ) 451 451 ! 452 452 IF( kt == nit000 ) THEN ! set the forcing field at nit000 - 1 ! … … 513 513 ! 514 514 IF(ln_ctl) THEN ! print mean trends (used for debugging) 515 CALL prt_ctl(tab2d_1=fr_i , clinfo1=' fr_i - : ', mask1=tmask , ovlap=1)516 CALL prt_ctl(tab2d_1=(emp-rnf + fwfisf), clinfo1=' emp-rnf - : ', mask1=tmask , ovlap=1)517 CALL prt_ctl(tab2d_1=(sfx-rnf + fwfisf), clinfo1=' sfx-rnf - : ', mask1=tmask , ovlap=1)518 CALL prt_ctl(tab2d_1=qns , clinfo1=' qns - : ', mask1=tmask , ovlap=1)519 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask , ovlap=1)520 CALL prt_ctl(tab3d_1=tmask , clinfo1=' tmask - : ', mask1=tmask, ovlap=1,kdim=jpk )521 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' sst - : ', mask1=tmask, ovlap=1,kdim=1 )522 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sss - : ', mask1=tmask, ovlap=1,kdim=1 )515 CALL prt_ctl(tab2d_1=fr_i , clinfo1=' fr_i - : ', mask1=tmask ) 516 CALL prt_ctl(tab2d_1=(emp-rnf + fwfisf), clinfo1=' emp-rnf - : ', mask1=tmask ) 517 CALL prt_ctl(tab2d_1=(sfx-rnf + fwfisf), clinfo1=' sfx-rnf - : ', mask1=tmask ) 518 CALL prt_ctl(tab2d_1=qns , clinfo1=' qns - : ', mask1=tmask ) 519 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask ) 520 CALL prt_ctl(tab3d_1=tmask , clinfo1=' tmask - : ', mask1=tmask, kdim=jpk ) 521 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' sst - : ', mask1=tmask, kdim=1 ) 522 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sss - : ', mask1=tmask, kdim=1 ) 523 523 CALL prt_ctl(tab2d_1=utau , clinfo1=' utau - : ', mask1=umask, & 524 & tab2d_2=vtau , clinfo2=' vtau - : ', mask2=vmask , ovlap=1)524 & tab2d_2=vtau , clinfo2=' vtau - : ', mask2=vmask ) 525 525 ENDIF 526 526
Note: See TracChangeset
for help on using the changeset viewer.