pkg/darwin/darwin_diags.F

8fbfd1f382 Oliv*0001 #include "DARWIN_OPTIONS.h"
                0002
                0003 CStartOfInterface
                0004       SUBROUTINE DARWIN_DIAGS( myTime, myIter, myThid )
                0005 C     /==========================================================\
                0006 C     | SUBROUTINE DARWIN_DIAGS                                  |
                0007 C     | o dummy subroutine                                       |
                0008 C     \==========================================================/
                0009       IMPLICIT NONE
                0010
                0011 C     == Routine arguments ==
                0012 C     myTime - Current time of simulation ( s )
                0013 C     myIter - Iteration number
                0014 C     myThid -  Number of this instance of INI_FORCING
                0015       _RL     myTime
                0016       INTEGER myIter
                0017       INTEGER myThid
                0018 CEndOfInterface
                0019
                0020       RETURN
                0021       END