- Timestamp:
- 2021-06-03T16:53:29+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/istate.F90
r14941 r14943 158 158 vv_b(:,:,Kmm) = vv_b(:,:,Kmm) * r1_hv(:,:,Kmm) 159 159 ! 160 #if defined key_RK3 160 161 IF( .NOT. ln_rstart ) THEN 162 #endif 161 163 ! Initialize "before" barotropic velocities. "now" values are always set but 162 164 ! "before" values may have been read from a restart to ensure restartability. 163 ! In the non-restart casethey need to be initialised here:165 ! In the non-restart or non-RK3 cases they need to be initialised here: 164 166 uu_b(:,:,Kbb) = 0._wp ; vv_b(:,:,Kbb) = 0._wp 165 167 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) … … 170 172 vv_b(:,:,Kbb) = vv_b(:,:,Kbb) * r1_hv(:,:,Kbb) 171 173 ! 174 #if defined key_RK3 172 175 ENDIF 176 #endif 173 177 ! 174 178 END SUBROUTINE istate_init -
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/trasbc.F90
r14941 r14943 143 143 sbc_tsc_b(ji,jj,:) = sbc_tsc(ji,jj,:) 144 144 END_2D 145 #if defined key_RK3 145 146 IF( ntile == 0 .OR. ntile == nijtile ) THEN ! Do only on the last tile 146 147 IF( lrst_oce ) THEN !== write sbc_tsc in the ocean restart file ==! … … 149 150 ENDIF 150 151 ENDIF 152 #endif 151 153 ENDIF 152 154 ! !== Now sbc tracer content fields ==! … … 173 175 END DO 174 176 ! 177 #if ! defined key_RK3 178 IF( ntile == 0 .OR. ntile == nijtile ) THEN ! Do only on the last tile 179 IF( lrst_oce ) THEN !== write sbc_tsc in the ocean restart file ==! 180 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 181 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 182 ENDIF 183 ENDIF 184 #endif 175 185 ! 176 186 !----------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.