- Timestamp:
- 2015-07-02T15:57:10+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r5447 r5534 484 484 CALL iom_close( inum ) 485 485 mbathy(:,:) = INT( bathy(:,:) ) 486 !487 ! CL : add Amazon deeper488 IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN ! ORCA R1 configuration489 ii0 = 230 ; ii1 = 245 ! Amazon area490 ij0 = 140 ; ij1 = 155 ! no ocean shallower than 30 meters491 DO ji = mi0(ii0), mi1(ii1)492 DO jj = mj0(ij0), mj1(ij1)493 IF( bathy(ji,jj) .LE. 30. .AND. bathy(ji,jj) .GT. 0.0 ) bathy(ji,jj) = 30._wp494 END DO495 END DO496 IF(lwp) WRITE(numout,*)497 IF(lwp) WRITE(numout,*) ' orca_r1: Amazon area not shallower than 30 meters for: '498 IF(lwp) WRITE(numout,*) ' Longitude index ',ii0, ii0499 IF(lwp) WRITE(numout,*) ' Latitude index ',ij0, ij0500 ENDIF501 486 ! ! ===================== 502 487 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN ! ORCA R2 configuration
Note: See TracChangeset
for help on using the changeset viewer.