Changeset 15116

Timestamp:

2021-07-13T08:49:37+02:00 (3 years ago)

Author:

cetlod

Message:

dev_PISCO : minor bugfix

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/SED/trosk.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/SED/trosk.F90

@@ -1 +1 @@
 MODULE TROS
+# if ! defined key_agrif
 !****************************************************************
 !* NUMERICAL SOLUTION OF A STIFF SYSTEM OF FIRST 0RDER ORDINARY *
@@ -1550 +1551 @@
 !----------------------- END OF SUBROUTINE SOLB ------------------------
       END SUBROUTINE SOLB
-
+#else
+  
+   PUBLIC ROSK
+   CONTAINS
+      SUBROUTINE ROSK(ROSM,N,JINDEX,X,Y,XEND,H,        &
+                RTOL,ATOL,ITOL,                  &
+                JAC ,IJAC,MLJAC,MUJAC,           &
+                WORK,LWORK,IWORK,LIWORK,IDID,ISTAT,RSTAT)
+      END SUBROUTINE ROSK
+#endif
 END MODULE TROS