Changeset 3254
- Timestamp:
- 2012-01-09T16:16:43+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3224 r3254 455 455 CALL iom_close( inum ) 456 456 ! ! ===================== 457 IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN ! ORCA R1 configuration458 ii0 = 142 ; ii1 = 142 ! =====================459 ij0 = 51 ; ij1 = 53460 DO ji = mi0(ii0), mi1(ii1) ! Close Halmera Strait461 DO jj = mj0(ij0), mj1(ij1)462 bathy(ji,jj) = 0._wp463 END DO464 END DO465 IF(lwp) WRITE(numout,*)466 IF(lwp) WRITE(numout,*) ' orca_r1: Halmera strait closed at i=',ii0,' j=',ij0,'->',ij1467 ENDIF468 ! ! =====================469 457 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN ! ORCA R2 configuration 470 458 ! ! =====================
Note: See TracChangeset
for help on using the changeset viewer.