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 2465 – NEMO

Changeset 2465


Ignore:
Timestamp:
2010-12-08T14:58:55+01:00 (14 years ago)
Author:
cetlod
Message:

v3.2 : move the call of zgr_bat_ctl & zgr_bat_zoom at the right place, see ticket:671

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DOM/domzgr.F90

    r1694 r2465  
    116116      IF( ln_zps )   CALL zgr_zps      ! Partial step z-coordinate 
    117117      IF( ln_sco )   CALL zgr_sco      ! s-coordinate or hybrid z-s coordinate 
     118      ! 
     119     ! final adjustment of mbathy & check 
     120     ! ----------------------------------- 
     121     IF( lzoom       )   CALL zgr_bat_zoom     ! correct mbathy in case of zoom subdomain 
     122     IF( .NOT.lk_c1d )   CALL zgr_bat_ctl      ! check bathymetry (mbathy) and suppress isoated ocean points 
     123 
    118124 
    119125!!bug gm control print: 
    … …  
    478484      IF( ln_zps .OR. ln_sco )   CALL ctl_stop( ' CAUTION: 300 levels only with level bathymetry' ) 
    479485#endif 
    480       !                                               ! =============== ! 
    481       IF( lzoom        )   CALL zgr_bat_zoom          !   Zoom domain   ! 
    482       !                                               ! =============== ! 
    483  
    484       !                                               ! =================== ! 
    485       IF( .NOT. lk_c1d )   CALL zgr_bat_ctl           !   Bathymetry check  ! 
    486       !                                               ! =================== ! 
     486      !                          
    487487   END SUBROUTINE zgr_bat 
    488488 
    … …  
    979979         WRITE(numout,*) 'domzgr gdep3w(mbathy)'   ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout) 
    980980      ENDIF   
    981         
    982       !                                               ! =============== ! 
    983       IF( lzoom )   CALL zgr_bat_zoom                 !   Zoom domain   ! 
    984       !                                               ! =============== ! 
    985  
    986       !                                               ! =================== ! 
    987       IF( .NOT. lk_c1d )   CALL zgr_bat_ctl           !   Bathymetry check  ! 
    988       !                                               ! =================== ! 
     981      !                                      
    989982   END SUBROUTINE zgr_zps 
    990983 
    … …  
    14721465 
    14731466 
    1474       !                                               ! =========== 
    1475       IF( lzoom )   CALL zgr_bat_zoom                 ! Zoom domain  
    1476       !                                               ! =========== 
    1477  
    1478       !                                               ! =================== ! 
    1479       IF( .NOT. lk_c1d )   CALL zgr_bat_ctl           !   Bathymetry check  ! 
    1480       !                                               ! =================== ! 
    1481  
    14821467      !                                               ! ============= 
    14831468      IF(lwp) THEN                                    ! Control print 
Note: See TracChangeset for help on using the changeset viewer.