New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3254 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 – NEMO

Ignore:
Timestamp:
2012-01-09T16:16:43+01:00 (12 years ago)
Author:
charris
Message:

Removed incorrect Halmera strait closure for ORCA1 (currently creates an island in the South Pacific - see #875). If it is necessary to modify the land-sea mask the change can be made at 3.4 using a modified bathmetry file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3224 r3254  
    455455            CALL iom_close( inum ) 
    456456            !                                                ! ===================== 
    457             IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN    ! ORCA R1 configuration 
    458                ii0 = 142   ;   ii1 = 142                     ! ===================== 
    459                ij0 =  51   ;   ij1 =  53                      
    460                DO ji = mi0(ii0), mi1(ii1)                    ! Close Halmera Strait 
    461                   DO jj = mj0(ij0), mj1(ij1) 
    462                      bathy(ji,jj) = 0._wp 
    463                   END DO 
    464                END DO 
    465                IF(lwp) WRITE(numout,*) 
    466                IF(lwp) WRITE(numout,*) '      orca_r1: Halmera strait closed at i=',ii0,' j=',ij0,'->',ij1 
    467             ENDIF 
    468             !                                                ! ===================== 
    469457            IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN    ! ORCA R2 configuration 
    470458               !                                             ! ===================== 
Note: See TracChangeset for help on using the changeset viewer.