Changeset 14856 for NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/SBC/sbcssr.F90
- Timestamp:
- 2021-05-12T17:58:07+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/SBC/sbcssr.F90
r14822 r14856 98 98 ! 99 99 IF( nn_sstr == 1 ) THEN !* Temperature restoring term 100 DO_2D( 1, 1, 1, 1)100 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 101 101 zqrp = rn_dqdt * ( sst_m(ji,jj) - sf_sst(1)%fnow(ji,jj,1) ) * tmask(ji,jj,1) 102 102 qns(ji,jj) = qns(ji,jj) + zqrp … … 108 108 ! use fraction of ice ( fr_i ) to adjust relaxation under ice if nn_sssr_ice .ne. 1 109 109 ! n.b. coefice is initialised and fixed to 1._wp if nn_sssr_ice = 1 110 DO_2D( 1, 1, 1, 1)110 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 111 111 SELECT CASE ( nn_sssr_ice ) 112 112 CASE ( 0 ) ; coefice(ji,jj) = 1._wp - fr_i(ji,jj) ! no/reduced damping under ice … … 118 118 IF( nn_sssr == 1 ) THEN !* Salinity damping term (salt flux only (sfx)) 119 119 zsrp = rn_deds / rday ! from [mm/day] to [kg/m2/s] 120 DO_2D( 1, 1, 1, 1)120 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 121 121 zerp = zsrp * ( 1. - 2.*rnfmsk(ji,jj) ) & ! No damping in vicinity of river mouths 122 122 & * coefice(ji,jj) & ! Optional control of damping under sea-ice … … 129 129 zsrp = rn_deds / rday ! from [mm/day] to [kg/m2/s] 130 130 zerp_bnd = rn_sssr_bnd / rday ! - - 131 DO_2D( 1, 1, 1, 1)131 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 132 132 zerp = zsrp * ( 1. - 2.*rnfmsk(ji,jj) ) & ! No damping in vicinity of river mouths 133 133 & * coefice(ji,jj) & ! Optional control of damping under sea-ice
Note: See TracChangeset
for help on using the changeset viewer.