Changeset 2800 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
- Timestamp:
- 2011-07-13T15:31:05+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r2797 r2800 33 33 USE solpcg ! preconditionned conjugate gradient solver 34 34 USE solsor ! Successive Over-relaxation solver 35 USE obcdyn 3d ! ocean open boundary condition (obc_dyn3d routines)35 USE obcdyn ! ocean open boundary condition on dynamics 36 36 USE obcvol ! ocean open boundary condition (obc_vol routines) 37 37 USE cla ! cross land advection … … 180 180 181 181 #if defined key_obc 182 CALL obc_dyn 3d( kt )! Update velocities on each open boundary183 CALL obc_vol( kt ) ! Correction of the barotropic compon ant velocity to control the volume of the system182 CALL obc_dyn( kt ) ! Update velocities on each open boundary 183 CALL obc_vol( kt ) ! Correction of the barotropic component velocity to control the volume of the system 184 184 #endif 185 185 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.