Changeset 6404 for branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/TOOLS/SIREN/src/function.f90

Timestamp:

2016-03-29T11:24:48+02:00 (8 years ago)

Author:

timgraham

Message:

First attempt at upgrading branch to the head of the trunk. This should include all of the simplification branch from the merge in Dec 2015.

File:

• branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/TOOLS/SIREN/src/function.f90 (modified) (2 diffs)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/TOOLS/SIREN/src/function.f90

@@ -363 +363 @@
       IF( id_status /= 0 )THEN
          !CALL ERRSNS() ! not F95 standard
-         PRINT *, "FORTRAN ERROR"
+         PRINT *, "FORTRAN ERROR ",id_status
          !STOP
       ENDIF
@@ -740 +740 @@
    !
    !> @param[in] cd_var character
-   !> @return character is numeric
+   !> @return character is real number
    !-------------------------------------------------------------------
    PURE LOGICAL FUNCTION fct_is_real(cd_var)