Opened 16 years ago
Closed 16 years ago
#24 closed Bug (fixed)
Bug in iom_open with key_dimgout : mask_xxxx.dimg pb
Reported by: | smasson | Owned by: | smasson |
---|---|---|---|
Priority: | normal | Milestone: | |
Component: | OCE | Version: | v2 |
Severity: | Keywords: | ||
Cc: |
Description
When creating meshmask files with keydimgout defined, (nmsh=3), the maskxxxx.dimg files have a truncated name and are xxxx.dimg (mask is missing). This come from a bug in iomopen, and specifically from the test :
(1) IF( INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 ) clname = TRIM(clname)TRIM(clsuffix)
When clname=mask and clsuffix='.dimg' then iln=4, ils=5 and iln -ils +1 = 0 ... so that the suffix is not added to mask.
Few lines after in the same routine, we have
iln = INDEX(clname,TRIM(clsuffix), back = .TRUE.)
clname = clname(1:iln-1)'_'TRIM(clcpu)TRIM(clsuffix)
and iln = 0, clname is crashed to _XXXX.dimg
This mean that TEST (1) is wrong or inadecuate. A terribly ugly fix will be to change 'mask' to 'maskk' (or whatever with a length /= 4 !)
I hope you will find a nicer fix.
Cheers, Jean-Marc
Commit History (1)
Changeset | Author | Time | ChangeLog |
---|---|---|---|
598 | opalod | 2007-02-20T15:16:53+01:00 | nemo_v2_bugfix_006 : CT : - avoid to change sign of 2 surface fluxes (#11 & #12) when calling lbc_lnk |
Change History (2)
comment:1 Changed 16 years ago by smasson
- Owner changed from somebody to smasson
comment:2 Changed 16 years ago by smasson
- Resolution set to fixed
- Status changed from new to closed
fixed, see changeset:742
I think I already seen this bug somewhere with a file called a.nc...
what about changing the first IF:
IF( iln <= ils .OR. INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 )