Changeset 288 for trunk/NEMO/LIM_SRC
- Timestamp:
- 2005-09-22T12:44:36+02:00 (19 years ago)
- Location:
- trunk/NEMO/LIM_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limdyn.F90
r258 r288 153 153 154 154 ENDIF 155 156 u_ice(:,1) = 0.e0 !ibug est-ce vraiment necessaire?157 v_ice(:,1) = 0.e0158 155 159 156 IF(ln_ctl) THEN -
trunk/NEMO/LIM_SRC/limhdf.F90
r258 r288 15 15 USE in_out_manager 16 16 USE ice 17 ! USE limdyn18 17 USE lbclnk 19 18 USE lib_mpp … … 148 147 END DO 149 148 149 ! lateral boundary condition on ptab 150 CALL lbc_lnk( zrlx, 'T', 1. ) 151 150 152 ! convergence test 151 153 zconv = 0.e0 … … 162 164 END DO 163 165 END DO 164 165 ! lateral boundary condition on ptab166 CALL lbc_lnk( ptab, 'T', 1. )167 166 ! !========================== 168 167 END DO ! end of sub-time step loop 169 168 ! !========================== 170 169 171 ptab(:,:) = ptab(:,:) 170 ptab(:,:) = zrlx(:,:) 171 172 172 IF(ln_ctl) THEN 173 173 zrlx(:,:) = ptab(:,:) - ptab0(:,:)
Note: See TracChangeset
for help on using the changeset viewer.