Changeset 14143 for NEMO/trunk/src/NST/agrif_oce_update.F90
- Timestamp:
- 2020-12-09T22:26:04+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_update.F90
r14086 r14143 192 192 IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update e3 from grid Number',Agrif_Fixed(), 'Step', Agrif_Nb_Step() 193 193 ! 194 #if ! defined key_qco 194 #if defined key_qco 195 CALL Agrif_ChildGrid_To_ParentGrid() 196 CALL Agrif_Update_qco 197 CALL Agrif_ParentGrid_To_ChildGrid() 198 #elif defined key_linssh 199 ! 200 #else 195 201 Agrif_UseSpecialValueInUpdate = .TRUE. 196 202 Agrif_SpecialValueFineGrid = 0. … … 204 210 CALL Agrif_ChildGrid_To_ParentGrid() 205 211 CALL dom_vvl_update_UVF 206 CALL Agrif_ParentGrid_To_ChildGrid()207 #else208 CALL Agrif_ChildGrid_To_ParentGrid()209 CALL Agrif_Update_qco210 212 CALL Agrif_ParentGrid_To_ChildGrid() 211 213 #endif … … 232 234 233 235 234 #if ! defined key_qco 236 #if ! defined key_qco && ! defined key_linssh 235 237 SUBROUTINE dom_vvl_update_UVF 236 238 !!--------------------------------------------- … … 1163 1165 END SUBROUTINE updateAVM 1164 1166 1165 #if ! defined key_qco 1167 #if ! defined key_qco && ! defined key_linssh 1166 1168 SUBROUTINE updatee3t(ptab_dum, i1, i2, j1, j2, k1, k2, before ) 1167 1169 !!---------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.