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
