/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Sat Jun 15 03:28:39 2002 UTC revision 1.6 by jmc, Tue Feb 11 03:03:46 2003 UTC
# Line 23  C       | Line 23  C       |
23  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
24  C       |  C       |
25  C       |-- FLT_INIT  C       |-- FLT_INIT
26    C       |
27    C       |-- ZONAL_FILT_INIT
28    
29  C     !USES:  C     !USES:
30        IMPLICIT NONE        IMPLICIT NONE
# Line 48  C--   Initialize fixed arrays for OBCS Line 50  C--   Initialize fixed arrays for OBCS
50  #endif  #endif
51  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
52  C--   Initialise Float positions  C--   Initialise Float positions
53        IF (useFLT) then        IF (useFLT) THEN
54         CALL FLT_INIT(nIter0,startTime,myThid )         CALL FLT_INIT(nIter0,startTime,myThid )
55        _BARRIER        _BARRIER
56        ENDIF        ENDIF
57  #endif  #endif
58    #ifdef ALLOW_ZONAL_FILT
59    C--   Latitude circle filter initialisation
60          IF (useZONAL_FILT) THEN
61           CALL ZONAL_FILT_INIT(myThid)
62          _BARRIER
63          ENDIF
64    #endif
65    
66        RETURN        RETURN
67        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22