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

Changeset 1632


Ignore:
Timestamp:
2009-09-22T17:45:34+02:00 (15 years ago)
Author:
rblod
Message:

Fix a bug in domzgr, see ticket #549

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1629 r1632  
    14711471 
    14721472 
    1473       !                                            ! =========== 
    1474       IF( lzoom )   CALL zgr_bat_zoom              ! Zoom domain  
    1475       !                                            ! =========== 
    1476  
    1477       !                                            ! ============= 
    1478       IF(lwp) THEN                                 ! Control print 
    1479          !                                         ! ============= 
     1473      !                                               ! =========== 
     1474      IF( lzoom )   CALL zgr_bat_zoom                 ! Zoom domain  
     1475      !                                               ! =========== 
     1476 
     1477      !                                               ! =================== ! 
     1478      IF( .NOT. lk_c1d )   CALL zgr_bat_ctl           !   Bathymetry check  ! 
     1479      !                                               ! =================== ! 
     1480 
     1481      !                                               ! ============= 
     1482      IF(lwp) THEN                                    ! Control print 
     1483         !                                            ! ============= 
    14801484         WRITE(numout,*)  
    14811485         WRITE(numout,*) ' domzgr: vertical coefficients for model level' 
Note: See TracChangeset for help on using the changeset viewer.