Skip to content
Snippets Groups Projects
Commit 4082f5cc authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Merge branch 'MNH-56-branch' into MNH-56X-dev-IO

parents 91e0ba0a ca18f45a
No related branches found
No related tags found
No related merge requests found
......@@ -441,17 +441,17 @@ IF (LCLD_COV .AND. LUSERC) THEN
ZWORK21(:,:)=0.0
ZWORK21(IIB:IIE,IJB:IJE)=MAXVAL(XCLDFR(IIB:IIE,IJB:IJE,JPVEXT+1:IKE),DIM=3)
TZFIELD = TFIELDMETADATA( &
CMNHNAME = 'CLDFRMAX', &
TZFIELD = TFIELDMETADATA( &
CMNHNAME = 'CLDFRMAX', &
!Invalid CF convention standard name: CSTDNAME = 'max_cloud_fraction', &
CLONGNAME = 'CLDFRMAX', &
CUNITS = '1', &
CDIR = 'XY', &
CCOMMENT = 'X_Y_MAx of CLoud fraction, &
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 2, &
LTIMEDEP = .TRUE. )
CLONGNAME = 'CLDFRMAX', &
CUNITS = '1', &
CDIR = 'XY', &
CCOMMENT = 'X_Y_MAx of CLoud fraction', &
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 2, &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK21)
!
! Visibility
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment