Changeset 11623 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_ecmwf.F90
- Timestamp:
- 2019-10-01T14:59:42+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.