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)
Changeset | Author | Time | ChangeLog |
---|---|---|---|
3262 | rblod | 2012-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.