- Timestamp:
- 2017-12-18T15:24:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r9096 r9116 218 218 Agrif_UseSpecialValue = .TRUE. 219 219 CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn ) 220 hbdy_w(: ) = 0.e0 ; hbdy_e(:) = 0.e0 ; hbdy_n(:) = 0.e0 ; hbdy_s(:) = 0.e0220 hbdy_w(:,:) = 0.e0 ; hbdy_e(:,:) = 0.e0 ; hbdy_n(:,:) = 0.e0 ; hbdy_s(:,:) = 0.e0 221 221 ssha(:,:) = 0.e0 222 222 … … 227 227 CALL Agrif_Bc_variable(ub2b_interp_id,calledweight=1.,procname=interpub2b) 228 228 CALL Agrif_Bc_variable(vb2b_interp_id,calledweight=1.,procname=interpvb2b) 229 ubdy_w(: ) = 0.e0 ; vbdy_w(:) = 0.e0230 ubdy_e(: ) = 0.e0 ; vbdy_e(:) = 0.e0231 ubdy_n(: ) = 0.e0 ; vbdy_n(:) = 0.e0232 ubdy_s(: ) = 0.e0 ; vbdy_s(:) = 0.e0229 ubdy_w(:,:) = 0.e0 ; vbdy_w(:,:) = 0.e0 230 ubdy_e(:,:) = 0.e0 ; vbdy_e(:,:) = 0.e0 231 ubdy_n(:,:) = 0.e0 ; vbdy_n(:,:) = 0.e0 232 ubdy_s(:,:) = 0.e0 ; vbdy_s(:,:) = 0.e0 233 233 ENDIF 234 234
Note: See TracChangeset
for help on using the changeset viewer.