New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
#1735 (mesh_mask) – NEMO

Opened 8 years ago

Closed 8 years ago

#1735 closed Enhancement (fixed)

mesh_mask

Reported by: flavoni Owned by: flavoni
Priority: lowest Milestone:
Component: OCE Version: trunk
Severity: Keywords:
Cc:

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 8 years ago by flavoni

  • Owner changed from NEMO team to flavoni

comment:2 Changed 8 years ago by flavoni

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