Skip to content
Snippets Groups Projects
Commit e6121074 authored by Guillaume Samson's avatar Guillaume Samson :snowman2:
Browse files

Merge branch 'domcfg_add_coord_names' into 'main'

fix names of x,y coordinates fields of domcfg

See merge request nemo/nemo!33
parents 9df45b62 5d2be734
No related branches found
No related tags found
No related merge requests found
......@@ -556,6 +556,7 @@ CONTAINS
LOGICAL :: lchunk ! logical switch to activate chunking and compression
! ! when appropriate (currently chunking is applied to 4d fields only)
INTEGER :: idlv ! local variable
CHARACTER(LEN=256) :: ccname ! local variable
!---------------------------------------------------------------------
!
clinfo = ' iom_nf90_rp0123d, file: '//TRIM(iom_file(kiomid)%name)//', var: '//TRIM(cdvar)
......@@ -571,7 +572,10 @@ CONTAINS
! define the dimension variables if it is not already done
DO jd = 1, 2
CALL iom_nf90_check(NF90_INQUIRE_DIMENSION(if90id,jd,iom_file(kiomid)%cn_var(jd),iom_file(kiomid)%dimsz(jd,jd)),clinfo)
CALL iom_nf90_check(NF90_DEF_VAR( if90id, TRIM(iom_file(kiomid)%cn_var(jd)), NF90_FLOAT , (/ 1, 2 /), &
ccname = TRIM(iom_file(kiomid)%cn_var(jd))
IF ( ccname == 'x') ccname = 'nav_lon'
IF ( ccname == 'y') ccname = 'nav_lat'
CALL iom_nf90_check(NF90_DEF_VAR( if90id, ccname, NF90_FLOAT , (/ 1, 2 /), &
& iom_file(kiomid)%nvid(jd) ), clinfo)
END DO
iom_file(kiomid)%dimsz(2,1) = iom_file(kiomid)%dimsz(2,2) ! second dim of first variable
......
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