Changeset 11426 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE
- Timestamp:
- 2019-08-09T12:49:37+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/DYN/sshwzv.F90
r11057 r11426 109 109 ! 110 110 #if defined key_agrif 111 K rhs_a = Kaa; CALL agrif_ssh( kt )111 Kbb_a = Kbb; Kmm_a = Kmm; Krhs_a = Kaa; CALL agrif_ssh( kt ) 112 112 #endif 113 113 ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/nemogcm.F90
r11053 r11426 170 170 ! 171 171 ! Recursive update from highest nested level to lowest: 172 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = N nn! agrif_oce module copies of time level indices172 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 173 173 CALL Agrif_step_child_adj(Agrif_Update_All) 174 174 ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/step.F90
r11057 r11426 87 87 #if defined key_agrif 88 88 kstp = nit000 + Agrif_Nb_Step() 89 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 89 90 IF( lk_agrif_debug ) THEN 90 91 IF( Agrif_Root() .and. lwp) WRITE(*,*) '---'
Note: See TracChangeset
for help on using the changeset viewer.