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

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

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

revision 1.11 by heimbach, Tue Apr 10 22:35:25 2001 UTC revision 1.12 by adcroft, Tue May 29 14:01:37 2001 UTC
# Line 22  C     == Global variables == Line 22  C     == Global variables ==
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_OBCS  
25  #include "DYNVARS.h"  #include "DYNVARS.h"
 #endif  
26    
27  C     == Routine arguments ==  C     == Routine arguments ==
28        INTEGER myThid        INTEGER myThid
# Line 34  C     == Local variables == Line 32  C     == Local variables ==
32        INTEGER bi,bj,K,iMin,iMax,jMin,jMax        INTEGER bi,bj,K,iMin,iMax,jMin,jMax
33    
34        _BARRIER        _BARRIER
35    C--   Initialize DYNVARS arrays (state fields + G terms: Gu,Gv,...) to zero [always]
36          CALL INI_DYNVARS( myThid )
37    
38  C--   Initialise model fields.  C--   Initialise model fields.
39  C     Starting values of U, V, W, temp., salt. and tendency terms  C     Starting values of U, V, W, temp., salt. and tendency terms
40  C     are set here. Fields are either set to default or read from  C     are set here. Fields are either set to default or read from
# Line 82  C--   initialise time-average arrays wit Line 83  C--   initialise time-average arrays wit
83        ENDIF        ENDIF
84  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
85    
86    #ifdef EXACT_CONSERV
87          IF (exactConserv) THEN
88    C--   Compute the initial Barotropic Flow Divergence :
89            DO bj=myByLo(myThid),myByHi(myThid)
90             DO bi=myBxLo(myThid),myBxHi(myThid)
91               CALL CALC_EXACT_ETA( bi,bj, uVel,vVel,
92         I                          startTime, nIter0, myThid )
93             ENDDO
94            ENDDO
95          ENDIF
96    #endif /* EXACT_CONSERV */
97          
98        RETURN        RETURN
99        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22