- Timestamp:
- 2013-12-06T11:25:13+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r4327 r4328 28 28 USE lbclnk ! ocean lateral boundary condition (or mpp link) 29 29 USE lib_mpp ! MPP library 30 USE obc_par ! open boundary cond. parameter31 USE obc_oce32 30 USE bdy_oce 33 31 USE bdy_par … … 120 118 CALL agrif_ssh( kt ) 121 119 #endif 122 #if defined key_obc123 IF( Agrif_Root() ) THEN124 ssha(:,:) = ssha(:,:) * obctmsk(:,:)125 CALL lbc_lnk( ssha, 'T', 1. ) ! absolutly compulsory !! (jmm)126 ENDIF127 #endif128 120 #if defined key_bdy 129 121 ! bg jchanut tschanges
Note: See TracChangeset
for help on using the changeset viewer.