Opened 13 years ago

Closed 13 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: release-2
Severity: Keywords:


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)


nemo_v2_bugfix_006 : CT : - avoid to change sign of 2 surface fluxes (#11 & #12) when calling lbc_lnk

  • remove fields #23 & #24 which doesn't exist

Change History (2)

comment:1 Changed 13 years ago by smasson

  • Owner changed from somebody to smasson

I think I already seen this bug somewhere with a file called…
what about changing the first IF:
IF( iln ⇐ ils .OR. INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 )

comment:2 Changed 13 years ago by smasson

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

fixed, see changeset:742

Note: See TracTickets for help on using tickets.