Changeset 450
- Timestamp:
- 2006-04-28T14:24:20+02:00 (19 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r411 r450 442 442 itime, 1, 1, 1, jpidta, 1, jpjdta, zdta(:,:) ) 443 443 CALL flinclo( inum ) 444 idta(:,:) = jpkm1 ! initialisation 444 445 ELSE 445 446 IF(lwp) WRITE(numout,cform_err) -
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r412 r450 186 186 CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht - w: ', ovlap=1) 187 187 ENDIF 188 ENDIF 189 190 IF( aeiv0 == 0.e0 ) THEN 191 aeiu(:,:) = 0.e0 192 aeiv(:,:) = 0.e0 193 aeiw(:,:) = 0.e0 188 194 ENDIF 189 195 … … 354 360 ENDIF 355 361 ENDIF 362 363 IF( aeiv0 == 0.e0 ) THEN 364 aeiu(:,:) = 0.e0 365 aeiv(:,:) = 0.e0 366 aeiw(:,:) = 0.e0 367 ENDIF 356 368 357 369 END SUBROUTINE ldf_eiv
Note: See TracChangeset
for help on using the changeset viewer.