pkg/darwin/darwin_nut_supply.F

8fbfd1f382 Oliv*0001 #include "DARWIN_OPTIONS.h"
                0002
                0003 CBOP
                0004 C !ROUTINE: DARWIN_NUT_SUPPLY
                0005 C !INTERFACE: ==========================================================
                0006       SUBROUTINE DARWIN_NUT_SUPPLY(Nut,
                0007      &                          bi,bj,iMin,iMax,jMin,jMax,
                0008      &                          myIter,myTime,myThid)
                0009
                0010 C !DESCRIPTION:
                0011 C     step forward supply of nutrients
                0012
                0013 C !USES: ===============================================================
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016
                0017 C !INPUT PARAMETERS: ===================================================
                0018       _RL myTime
                0019       INTEGER bi,bj,iMin,iMax,jMin,jMax,myIter,myThid
                0020
                0021 C !INPUT/OUTPUT PARAMETERS: ============================================
                0022       _RL  Nut(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
                0023 CEOP
                0024
                0025 #ifdef ALLOW_DARWIN
                0026
                0027 C !LOCAL VARIABLES: ====================================================
                0028
                0029       STOP 'not implemented'
                0030
                0031 #endif /* ALLOW_DARWIN */
                0032
                0033       RETURN
                0034       END