Changeset 11421 for NEMO/branches
- Timestamp:
- 2019-08-08T14:09:35+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/sshwzv.F90
r11027 r11421 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/src/OCE/nemogcm.F90
r11027 r11421 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/src/OCE/step.F90
r11027 r11421 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(*,*) '---' -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS/nemogcm.F90
r11027 r11421 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/src/SAS/step.F90
r11027 r11421 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.