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.
#904 (3.4beta : dom_zgr, wrong output to numout) – NEMO

Opened 12 years ago

Closed 12 years ago

#904 closed Bug (fixed)

3.4beta : dom_zgr, wrong output to numout

Reported by: molines Owned by: nemo
Priority: low Milestone:
Component: OCE Version: v3.4
Severity: Keywords:
Cc:

Description

This is an old bug, never corrected, harmless indeed !

  • 3rd index of zprt should change from 1 to 6, if not, it is always the same value which is printed !
          IF(lwp .AND. ll_print) THEN                     !   Control print   !
             !                                            ! ================= !
             DO jj = 1,jpj
                DO ji = 1, jpi
                   ik = MAX( mbathy(ji,jj), 1 )
                   zprt(ji,jj,1) = e3t   (ji,jj,ik)
                   zprt(ji,jj,2) = e3w   (ji,jj,ik)
                   zprt(ji,jj,3) = e3u   (ji,jj,ik)
                   zprt(ji,jj,4) = e3v   (ji,jj,ik)
                   zprt(ji,jj,5) = e3f   (ji,jj,ik)
                   zprt(ji,jj,6) = gdep3w(ji,jj,ik)
                END DO
             END DO
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr e3t(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr e3w(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr e3u(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr e3v(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr e3f(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
             WRITE(numout,*)
             WRITE(numout,*) 'domzgr gdep3w(mbathy)'   ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
          ENDIF
    

Commit History (1)

ChangesetAuthorTimeChangeLog
3262rblod2012-01-17T14:41:13+01:00

Correct control print in domzgr see ticket #904

Change History (1)

comment:1 Changed 12 years ago by rblod

  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.