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

Philippe 31/08/2023: fix for previous commit

parent 4aae45da
No related branches found
No related tags found
No related merge requests found
...@@ -441,17 +441,17 @@ IF (LCLD_COV .AND. LUSERC) THEN ...@@ -441,17 +441,17 @@ IF (LCLD_COV .AND. LUSERC) THEN
ZWORK21(:,:)=0.0 ZWORK21(:,:)=0.0
ZWORK21(IIB:IIE,IJB:IJE)=MAXVAL(XCLDFR(IIB:IIE,IJB:IJE,JPVEXT+1:IKE),DIM=3) ZWORK21(IIB:IIE,IJB:IJE)=MAXVAL(XCLDFR(IIB:IIE,IJB:IJE,JPVEXT+1:IKE),DIM=3)
TZFIELD = TFIELDMETADATA( & TZFIELD = TFIELDMETADATA( &
CMNHNAME = 'CLDFRMAX', & CMNHNAME = 'CLDFRMAX', &
!Invalid CF convention standard name: CSTDNAME = 'max_cloud_fraction', & !Invalid CF convention standard name: CSTDNAME = 'max_cloud_fraction', &
CLONGNAME = 'CLDFRMAX', & CLONGNAME = 'CLDFRMAX', &
CUNITS = '1', & CUNITS = '1', &
CDIR = 'XY', & CDIR = 'XY', &
CCOMMENT = 'X_Y_MAx of CLoud fraction, & CCOMMENT = 'X_Y_MAx of CLoud fraction', &
NGRID = 1, & NGRID = 1, &
NTYPE = TYPEREAL, & NTYPE = TYPEREAL, &
NDIMS = 2, & NDIMS = 2, &
LTIMEDEP = .TRUE. ) LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK21) CALL IO_Field_write(TPFILE,TZFIELD,ZWORK21)
! !
! Visibility ! 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