Changeset 293 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2005-09-22T12:49:05+02:00 (19 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/dom_oce.F90
r258 r293 20 20 !! ----------------------- 21 21 LOGICAL, PUBLIC :: & !: 22 lclosea = .FALSE. , & !: closed sea flag23 22 lzoom = .FALSE. , & !: zoom flag 24 23 lzoom_e = .FALSE. , & !: East zoom type flag -
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r253 r293 467 467 ! ======================= 468 468 469 IF( .NOT. lclosea) THEN469 IF( nclosea == 0 ) THEN 470 470 DO jl = 1, jpncs 471 471 DO jj = ncsj1(jl), ncsj2(jl)
Note: See TracChangeset
for help on using the changeset viewer.