id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
911	IMPORTANT: Miscelaneous Update	arango		"A couple of updates and a bug correction:

* A change in routine **io_metadata** is made to allow more than a single unit test in the ROMS-JEDI interface. In addition, a **!FirstPass** switch is passed as an argument to the calling function. In **mod_ncparam.F**, we now have:
 {{{
      Ldone=.FALSE.
      FirstPass=.TRUE.                  ! initialize metadata processing
 !
       METADATA_LOOP : DO WHILE (.not.Ldone)
 !
 !  Load I/O metadata information.
 !
         Ldone = io_metadata(FirstPass, Vinfo, scale, add_offset)
         ...
       END DO METADATA_LOOP
}}}

 * The generic user parameter array (**user**) is now an allocatable vector with a size controlled by the User by specifying **Nuser**. For example, we can have in **roms.in**:
 {{{
       NUSER =  3
        USER =  20.d0 40.d0 50.d0
}}}
 Then, the output NetCDF files will report with **ncdump**:
 {{{
dimensions:
        ...
        Nuser = 3;
variables:
        ...

        double user(Nuser) ;
                user:long_name = ""user generic parameters"" ;
                user:_FillValue = 1.e+37 ;
        ...
data:
 
user = 20, 40, 50;
}}}
  If the value of **NUSER** is greater than the number of elements specified in **USER**, ROMS will repeat the last specified value (**50.d0**) until the **user(1:Nuser)** vector is filled:
 {{{
       NUSER =  10
        USER =  20.d0 40.d0 50.d0

  will yield:

  user = 20, 40, 50, 50, 50, 50, 50, 50, 50, 50;
}}}
 Similarly,
 {{{
       NUSER =  10
        USER =  20.d0 40.d0 50.d0 7*1.0d+37

  will yield:

  user = 20, 40, 50, _, _, _, _, _, _, _;
}}}
 It gives you some flexibility. I assume that we get messages in the Forum when Users trip on the logic.

 * Corrected bug in **netcdf_close** and **pio_netcdf_close** the switch **Lupdate**.  We need to have instead:
 {{{
         IF (.not.PRESENT(Lupdate)) THEN
           my_Lupdate=.FALSE.
         ELSE
           my_Lupdate=Lupdate
         END IF
}}}
 If the optional argument **Lupdate** is not present, **my_lupdate** should be false. Many thanks to Pierre St-Laurent for [https://www.myroms.org/forum/viewtopic.php?t=6007 reporting] this issue."	upgrade	closed	major	Release ROMS/TOMS 4.1	Nonlinear	4.0	Done