diff --git a/tools/DOMAINcfg/src/iom_nf90.F90 b/tools/DOMAINcfg/src/iom_nf90.F90 index cfe36588d73ce44c64a1c95fadbe59d645ea2ef7..d787073865a321fe687abb72e47c117757b19f24 100644 --- a/tools/DOMAINcfg/src/iom_nf90.F90 +++ b/tools/DOMAINcfg/src/iom_nf90.F90 @@ -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