Changeset 5520
- Timestamp:
- 2015-06-30T15:52:47+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90
r5211 r5520 73 73 ! 74 74 75 IF(lwp) WRITE(numout,*)76 IF(lwp) WRITE(numout,*) 'wad_lmt : wetting/drying limiters and velocity limiting'75 !IF(lwp) WRITE(numout,*) 76 !IF(lwp) WRITE(numout,*) 'wad_lmt : wetting/drying limiters and velocity limiting' 77 77 78 78 zflag = 0 79 zdepwd = 50._wp !maximum depth that ocean cells can have W/D processes79 zdepwd = 50._wp !maximum depth on which that W/D could possibly happen 80 80 81 81 … … 227 227 ! 228 228 229 IF(lwp) WRITE(numout,*)230 IF(lwp) WRITE(numout,*) 'wad_lmt_bt : wetting/drying limiters and velocity limiting'229 !IF(lwp) WRITE(numout,*) 230 !IF(lwp) WRITE(numout,*) 'wad_lmt_bt : wetting/drying limiters and velocity limiting' 231 231 232 232 zflag = 0 … … 237 237 zflxp(:,:) = 0._wp 238 238 zflxn(:,:) = 0._wp 239 zflxu(:,:) = 0._wp240 zflxv(:,:) = 0._wp239 !zflxu(:,:) = 0._wp 240 !zflxv(:,:) = 0._wp 241 241 242 242 zwdlmtu(:,:) = 1._wp … … 245 245 ! Horizontal Flux in u and v direction 246 246 247 zflxu(:,:) = zflxu(:,:) * e2u(:,:)248 zflxv(:,:) = zflxv(:,:) * e1v(:,:)247 !zflxu(:,:) = zflxu(:,:) * e2u(:,:) 248 !zflxv(:,:) = zflxv(:,:) * e1v(:,:) 249 249 250 250 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.