Changeset 14248 for NEMO/branches/UKMO
- Timestamp:
- 2020-12-23T14:55:53+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.3_penetrating_solar/src/OCE/SBC/sbccpl.F90
r13834 r14248 120 120 INTEGER, PARAMETER :: jpr_tauwy = 56 ! y component of the ocean stress from waves 121 121 INTEGER, PARAMETER :: jpr_ts_ice = 57 ! Sea ice surface temp 122 INTEGER, PARAMETER :: jpr_grnm = 58 ! Greenland ice mass 123 INTEGER, PARAMETER :: jpr_antm = 59 ! Antarctic ice mass 124 INTEGER, PARAMETER :: jpr_rnf_1d = 60 ! 1D river runoff 122 125 INTEGER, PARAMETER :: jpr_qtr = 61 ! Transmitted solar 123 126 … … 2148 2151 ! ! ===> here we receive the qtr_ice_top array from the coupler 2149 2152 CASE ('coupled') 2150 IF (ln_scale_ice_flux es) THEN2153 IF (ln_scale_ice_flux) THEN 2151 2154 WHERE( a_i(:,:,:) > 0.0_wp ) zqtr_ice_top(:,:,:) = frcv(jpr_qtr)%z3(:,:,:) * a_i_last_couple(:,:,:) / a_i(:,:,:) 2152 2155 WHERE( a_i(:,:,:) <= 0.0_wp ) zqtr_ice_top(:,:,:) = 0.0_wp
Note: See TracChangeset
for help on using the changeset viewer.