Changeset 3815 for LMDZ6/trunk/libf/misc

Timestamp:

Feb 1, 2021, 3:30:57 PM (4 years ago)

Author:

lguez

Message:

Merge Ocean_skin branch back into trunk

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• libf/misc/handle_err_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/handle_err_m.F90

@@ -27 +27 @@
 
     if (ncerr /= nf90_noerr) then
+       print *, "NetCDF95 handle_err:"
        print *, message, ":"
        if (present(varid)) print *, "varid = ", varid
@@ -39 +40 @@
           end if
        end if
-       call abort_physic("NetCDF95 handle_err", "", 1)
+       call abort_physic("NetCDF95 handle_err", "see above", 1)
     end if