Changeset 5534 for branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2015-07-02T15:57:10+02:00 (9 years ago)

Author:

davestorkey

Message:

Update UKMO/dev_r5107_mld_zint branch to rev 5518 of trunk
(= branching point of NEMO 3.6_stable).

File:

• branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -484 +484 @@
             CALL iom_close( inum )
             mbathy(:,:) = INT( bathy(:,:) )
-            !
-            ! CL :  add Amazon deeper
-            IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN    ! ORCA R1 configuration 
-                 ii0 = 230   ;   ii1 = 245                   ! Amazon area 
-                 ij0 = 140   ;   ij1 = 155                   ! no ocean shallower than 30 meters
-                 DO ji = mi0(ii0), mi1(ii1)
-                    DO jj = mj0(ij0), mj1(ij1)
-                       IF( bathy(ji,jj) .LE. 30. .AND. bathy(ji,jj) .GT. 0.0 ) bathy(ji,jj) = 30._wp
-                    END DO
-                 END DO
-                 IF(lwp) WRITE(numout,*)
-                 IF(lwp) WRITE(numout,*) '             orca_r1: Amazon area not shallower than 30 meters for: '
-                 IF(lwp) WRITE(numout,*) '                    Longitude index ',ii0, ii0
-                 IF(lwp) WRITE(numout,*) '                    Latitude index  ',ij0, ij0
-            ENDIF
             !                                                ! =====================
             IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN    ! ORCA R2 configuration