Changeset 11053 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcice_cice.F90
- Timestamp:
- 2019-05-24T12:53:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcice_cice.F90
r10922 r11053 147 147 148 148 149 SUBROUTINE cice_sbc_init( ksbc )149 SUBROUTINE cice_sbc_init( ksbc, Kbb, Kmm ) 150 150 !!--------------------------------------------------------------------- 151 151 !! *** ROUTINE cice_sbc_init *** … … 154 154 !!--------------------------------------------------------------------- 155 155 INTEGER, INTENT( in ) :: ksbc ! surface forcing type 156 INTEGER, INTENT( in ) :: Kbb, Kmm ! time level indices 156 157 REAL(wp), DIMENSION(jpi,jpj) :: ztmp1, ztmp2 157 158 REAL(wp) :: zcoefu, zcoefv, zcoeff ! local scalar … … 227 228 IF( .NOT.ln_rstart ) THEN 228 229 IF( ln_ice_embd ) THEN ! embedded sea-ice: deplete the initial ssh below sea-ice area 229 ssh n(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rau0230 ssh b(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rau0230 ssh(:,:,Kmm) = ssh(:,:,Kmm) - snwice_mass(:,:) * r1_rau0 231 ssh(:,:,Kbb) = ssh(:,:,Kbb) - snwice_mass(:,:) * r1_rau0 231 232 232 233 !!gm This should be put elsewhere.... (same remark for limsbc) … … 235 236 ! 236 237 DO jk = 1,jpkm1 ! adjust initial vertical scale factors 237 e3t(:,:,jk,Kmm) = e3t_0(:,:,jk)*( 1._wp + ssh n(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) )238 e3t(:,:,jk,Kbb) = e3t_0(:,:,jk)*( 1._wp + ssh b(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) )238 e3t(:,:,jk,Kmm) = e3t_0(:,:,jk)*( 1._wp + ssh(:,:,Kmm)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) ) 239 e3t(:,:,jk,Kbb) = e3t_0(:,:,jk)*( 1._wp + ssh(:,:,Kbb)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) ) 239 240 ENDDO 240 241 e3t(:,:,:,Krhs) = e3t(:,:,:,Kbb) … … 259 260 gdept(:,:,1,Kmm) = 0.5_wp * e3w(:,:,1,Kmm) 260 261 gdepw(:,:,1,Kmm) = 0.0_wp 261 gde3w(:,:,1) = gdept(:,:,1,Kmm) - ssh n(:,:)262 gde3w(:,:,1) = gdept(:,:,1,Kmm) - ssh(:,:,Kmm) 262 263 DO jk = 2, jpk 263 264 gdept(:,:,jk,Kmm) = gdept(:,:,jk-1,Kmm) + e3w(:,:,jk,Kmm) … … 1056 1057 END SUBROUTINE sbc_ice_cice 1057 1058 1058 SUBROUTINE cice_sbc_init (ksbc ) ! Dummy routine1059 SUBROUTINE cice_sbc_init (ksbc, Kbb, Kmm) ! Dummy routine 1059 1060 IMPLICIT NONE 1060 1061 INTEGER, INTENT( in ) :: ksbc 1062 INTEGER, INTENT( in ) :: Kbb, Kmm 1061 1063 WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?', ksbc 1062 1064 END SUBROUTINE cice_sbc_init
Note: See TracChangeset
for help on using the changeset viewer.