Opened 9 years ago

Closed 8 years ago

#818 closed Bug (fixed)

bug in obcdta.F90

Reported by: vichi Owned by: nemo
Priority: normal Milestone:
Component: OCE Version: release-3.3
Severity: Keywords:
Cc:

Description

indices jpj,jpk were used for all the boundary data
below a diff of the correction to be applied

@@ -120,8 +119,8 @@

ALLOCATE( ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) , &

& ltwmsk(jpj,jpk) , luwmsk(jpj,jpk) , lvwmsk(jpj,jpk) , &

  • & ltnmsk(jpj,jpk) , lunmsk(jpj,jpk) , lvnmsk(jpj,jpk) , &
  • & ltsmsk(jpj,jpk) , lusmsk(jpj,jpk) , lvsmsk(jpj,jpk) , STAT=ierr(2) )

+ & ltnmsk(jpi,jpk) , lunmsk(jpi,jpk) , lvnmsk(jpi,jpk) , &
+ & ltsmsk(jpi,jpk) , lusmsk(jpi,jpk) , lvsmsk(jpi,jpk) , STAT=ierr(2) )

obc_dta_alloc = MAXVAL( ierr )
IF( lk_mpp ) CALL mpp_sum( obc_dta_alloc )

Commit History (0)

(No commits)

Change History (1)

comment:1 Changed 8 years ago by vichi

  • Resolution set to fixed
  • Status changed from new to closed

fixed in version 3_4

Note: See TracTickets for help on using tickets.