Commit 21b6510f authored by Thomas Dubos's avatar Thomas Dubos
Browse files

Fix bug in diagnostic/observable.f90 and incomplete error message in vertical/disvert.f90

parent fc237919
Pipeline #127496 failed with stages
in 114 minutes and 49 seconds
......@@ -222,7 +222,7 @@ CONTAINS
IF(is_master) PRINT *, 'Done writing initial condition ...'
ELSE
IF (is_uz_out .OR. is_ulon_out .OR. is_ulon_out) THEN
IF (is_uz_out .OR. is_ulon_out .OR. is_ulat_out) THEN
CALL progonostic_vel_to_horiz(f_geopot, f_ps, f_mass, f_u, f_W, f_buf_uh, f_buf_i)
CALL transfert_request(f_buf_uh,req_e1_vect)
CALL un2ulonlat(f_buf_uh, f_buf_ulon, f_buf_ulat)
......
......@@ -123,7 +123,10 @@ CONTAINS
bp=>bp_ncarl30
presnivs=>presnivs_ncarl30
CASE default
IF (is_mpi_root) PRINT*,'Bad selector for variable disvert : <', TRIM(def),"> options are <std>, <ncar>, <ncarl30>"
IF (is_mpi_root) THEN
PRINT *, "Bad selector for variable disvert : <", TRIM(def), ">"
PRINT *, "Valid options are <std>, <strato>, <strato_custom>, <ncar>, <ncarl30>, <dcmip31>, <dcmip200>, <read_apbp>, <plugin>"
END IF
STOP
END SELECT
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment