-
Notifications
You must be signed in to change notification settings - Fork 1
/
darwin_cons.F
41 lines (30 loc) · 1019 Bytes
/
darwin_cons.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_cons.F,v 1.1 2011/04/13 18:56:24 jahn Exp $
C $Name: $
#include "DARWIN_OPTIONS.h"
CBOP
C !ROUTINE: DARWIN_CONS
C !INTERFACE: ==========================================================
SUBROUTINE DARWIN_CONS( myIter,myTime, myThid )
C !DESCRIPTION:
C !USES: ===============================================================
IMPLICIT NONE
#include "SIZE.h"
#include "PTRACERS_SIZE.h"
#include "PTRACERS_FIELDS.h"
C !INPUT PARAMETERS: ===================================================
C myThid :: thread number
INTEGER bi,bj,imin,imax,jmin,jmax
INTEGER myThid, myIter
_RL myTime
c!LOCAL VARIABLES: ====================================================
CEOP
#ifdef ALLOW_DARWIN
#ifdef ALLOW_QUOTA
call QUOTA_cons(myTime,myIter,myThid)
#endif /* ALLOW_QUOTA */
#ifdef ALLOW_MONOD
call MONOD_cons(myTime,myIter,myThid)
#endif /* ALLOW_MONOD */
#endif /* ALLOW_DARWIN */
RETURN
END