Changeset 5385 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2015-06-09T15:50:42+02:00 (9 years ago)

Author:

cetlod

Message:

merge 2015/dev_r5204_CNRS_PISCES_dcy branch into the trunk, see ticket #1532

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

trunk/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