Opened 13 years ago
Closed 11 years ago
#818 closed Bug (fixed)
bug in obcdta.F90
| Reported by: | vichi | Owned by: | nemo |
|---|---|---|---|
| Priority: | normal | Milestone: | |
| Component: | OCE | Version: | v3.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 11 years ago by vichi
- Resolution set to fixed
- Status changed from new to closed
Note: See
TracTickets for help on using
tickets.
fixed in version 3_4