Changeset 11623 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
- Timestamp:
- 2019-10-01T14:59:42+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
r11618 r11623 527 527 528 528 SELECT CASE( nblk ) !== transfer coefficients ==! Cd, Ch, Ce at T-point 529 529 530 530 CASE( np_COARE_3p0 ) 531 531 IF (lwp) PRINT *, ' *** LB(sbcblk.F90) => calling "turb_coare3p0" WITH CSWL options!!!, nsec_day=', nsec_day … … 534 534 & Qsw=qsr(:,:), rad_lw=sf(jp_qlw)%fnow(:,:,1), slp=sf(jp_slp)%fnow(:,:,1), & 535 535 & isecday_utc=nsec_day, plong=glamt(:,:) ) 536 536 537 537 CASE( np_COARE_3p6 ) 538 538 IF (lwp) PRINT *, ' *** LB(sbcblk.F90) => calling "turb_coare3p6" WITH CSWL options!!!, nsec_day, gdept_1d(1)=', nsec_day, gdept_1d(1)
Note: See TracChangeset
for help on using the changeset viewer.