- Timestamp:
- 2014-01-31T16:06:09+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90
r4389 r4390 151 151 END DO ! ji loop 152 152 END DO ! jj loop 153 154 CALL lbc_lnk( zwdlmtu, 'U', 1. ) 155 CALL lbc_lnk( zwdlmtv, 'V', 1. ) 156 157 IF(zflag == 0) EXIT 158 153 159 154 IF(jk1 == nn_waditr) THEN 160 155 DO jj = 2, jpjm1 … … 166 161 IF(zflxv1(ji, jj-1) < 0._wp) zwdlmtv(ji, jj-1) = 0._wp 167 162 168 CALL lbc_lnk( zwdlmtu, 'U', 1. )169 CALL lbc_lnk( zwdlmtv, 'V', 1. )170 163 END DO ! ji loop 171 164 END DO ! jj loop 172 165 END IF 166 167 CALL lbc_lnk( zwdlmtu, 'U', 1. ) 168 CALL lbc_lnk( zwdlmtv, 'V', 1. ) 169 170 IF(zflag == 0) EXIT 171 173 172 174 173 END DO ! jk1 loop
Note: See TracChangeset
for help on using the changeset viewer.