Opened 4 years ago

Closed 4 years ago

#1735 closed Enhancement (fixed)

mesh_mask

Reported by: flavoni Owned by: flavoni
Priority: lowest Milestone:
Component: OCE Version: trunk
Severity: Keywords:
Cc: Review:
MP ready?:
Progress:

Description

Context

In domwri.F90 in the mesh mask file some variables are written in simple precision (jp_r4); i.e.: glam (t,u,v,w) and gphi (t,u,v,w).
This was due to some historical reasons (to have file smaller then 2Gb).

If we read mesh_mask file we need to write it in double precision.

Fix

CALL iom_rstput( 0, 0, inum0, 'glamt', glamt, ktype = jp_r8 ) !
CALL iom_rstput( 0, 0, inum0, 'glamu', glamu, ktype = jp_r8 )
CALL iom_rstput( 0, 0, inum0, 'glamv', glamv, ktype = jp_r8 )
CALL iom_rstput( 0, 0, inum0, 'glamf', glamf, ktype = jp_r8 )

CALL iom_rstput( 0, 0, inum0, 'gphit', gphit, ktype = jp_r8 ) !
CALL iom_rstput( 0, 0, inum0, 'gphiu', gphiu, ktype = jp_r8 )
CALL iom_rstput( 0, 0, inum0, 'gphiv', gphiv, ktype = jp_r8 )
CALL iom_rstput( 0, 0, inum0, 'gphif', gphif, ktype = jp_r8 )

Commit History (0)

(No commits)

Change History (2)

comment:1 Changed 4 years ago by flavoni

  • Owner changed from NEMO team to flavoni

comment:2 Changed 4 years ago by flavoni

  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.