Changeset 11426 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/SAS
- 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/SAS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/SAS/nemogcm.F90
r11053 r11426 89 89 ! !-----------------------! 90 90 #if defined key_agrif 91 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 91 92 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM 92 93 CALL Agrif_Declare_Var ! " " " " " DYN/TRA … … 115 116 #if defined key_si3 116 117 ! Recursive update from highest nested level to lowest: 118 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 117 119 CALL Agrif_step_child_adj(Agrif_update_ice) 118 120 #endif -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/SAS/step.F90
r11053 r11426 79 79 #if defined key_agrif 80 80 kstp = nit000 + Agrif_Nb_Step() 81 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 81 82 IF ( lk_agrif_debug ) THEN 82 83 IF ( Agrif_Root() .and. lwp) Write(*,*) '---'
Note: See TracChangeset
for help on using the changeset viewer.