- Timestamp:
- 2019-10-01T14:59:42+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC
- Files:
-
- 3 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) -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare3p6.F90
r11616 r11623 152 152 !! 153 153 !! ** OUTPUT: 154 !! *pdT* dT due to warming at depth of pSST such that SST_actual = pSST + pdT154 !! *pdT* dT due to warm-layer effect => difference between "almost surface (right below viscous layer) and depth of bulk SST 155 155 !!--------------------------------------------------------------------- 156 156 !! … … 168 168 INTEGER , INTENT(in) :: isd ! current UTC time, counted in second since 00h of the current day 169 169 INTEGER , INTENT(in) :: iwait ! if /= 0 then wait before updating accumulated fluxes 170 REAL(wp), DIMENSION(jpi,jpj), INTENT(out) :: pdT ! dT due to warm ing at depth of pSST such that pSST_actual = pSST + pdT170 REAL(wp), DIMENSION(jpi,jpj), INTENT(out) :: pdT ! dT due to warm-layer effect => difference between "almost surface (right below viscous layer) and depth of bulk SST 171 171 !! 172 172 REAL(wp), DIMENSION(jpi,jpj), INTENT(out), OPTIONAL :: Hwl ! depth of warm layer [m] -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_ecmwf.F90
r11615 r11623 136 136 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pSST ! bulk SST at depth gdept_1d(1) [K] 137 137 ! 138 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pdT ! d ifference between "almost surface (right below viscous layer) and depth of bulk SST138 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pdT ! dT due to warm-layer effect => difference between "almost surface (right below viscous layer) and depth of bulk SST 139 139 ! 140 140 INTEGER :: ji,jj
Note: See TracChangeset
for help on using the changeset viewer.