Changeset 11027 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/NST/agrif_user.F90
- Timestamp:
- 2019-05-21T17:33:54+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/NST/agrif_user.F90
r10989 r11027 175 175 tabspongedone_tsn = .FALSE. 176 176 CALL Agrif_Bc_variable(tsn_sponge_id,calledweight=1.,procname=interptsn_sponge) 177 ! reset ts(:,:,:,:,Krhs ) to zero178 ts(:,:,:,:,Krhs ) = 0.177 ! reset ts(:,:,:,:,Krhs_a) to zero 178 ts(:,:,:,:,Krhs_a) = 0. 179 179 180 180 Agrif_UseSpecialValue = ln_spc_dyn … … 191 191 CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn ) 192 192 hbdy_w(:,:) = 0.e0 ; hbdy_e(:,:) = 0.e0 ; hbdy_n(:,:) = 0.e0 ; hbdy_s(:,:) = 0.e0 193 ssh(:,:,Krhs ) = 0.e0193 ssh(:,:,Krhs_a) = 0.e0 194 194 195 195 IF ( ln_dynspg_ts ) THEN … … 207 207 Agrif_UseSpecialValue = .FALSE. 208 208 ! reset velocities to zero 209 uu(:,:,:,Krhs ) = 0.210 vv(:,:,:,Krhs ) = 0.209 uu(:,:,:,Krhs_a) = 0. 210 vv(:,:,:,Krhs_a) = 0. 211 211 212 212 ! 3. Some controls … … 591 591 tabspongedone_trn = .FALSE. 592 592 CALL Agrif_Bc_variable(trn_sponge_id,calledweight=1.,procname=interptrn_sponge) 593 ! reset ts(:,:,:,:,Krhs ) to zero594 tr(:,:,:,:,Krhs ) = 0.593 ! reset ts(:,:,:,:,Krhs_a) to zero 594 tr(:,:,:,:,Krhs_a) = 0. 595 595 596 596
Note: See TracChangeset
for help on using the changeset viewer.