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

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

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

revision 1.13 by jahn, Wed Nov 7 21:37:33 2012 UTC revision 1.19 by jmc, Thu Jan 22 18:21:45 2015 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    #ifdef ALLOW_AUTODIFF
7    # include "AUTODIFF_OPTIONS.h"
8    #endif
9    #ifdef ALLOW_COST
10    # include "COST_OPTIONS.h"
11    #endif
12    #ifdef ALLOW_CTRL
13    # include "CTRL_OPTIONS.h"
14    #endif
15    #ifdef ALLOW_EXF
16    # include "EXF_OPTIONS.h"
17    #endif
18    
19  CBOP  CBOP
20  C     !ROUTINE: LOAD_FIELDS_DRIVER  C     !ROUTINE: LOAD_FIELDS_DRIVER
# Line 42  C     == Global variables == Line 54  C     == Global variables ==
54  #include "SIZE.h"  #include "SIZE.h"
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
56  #include "PARAMS.h"  #include "PARAMS.h"
57    #include "FFIELDS.h"
58    
59  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF
60  # include "tamc.h"  # include "tamc.h"
61  # include "CTRL_SIZE.h"  # include "CTRL_SIZE.h"
62  # include "ctrl.h"  # include "ctrl.h"
63  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
64  # include "cost.h"  # include "cost.h"
 # include "FFIELDS.h"  
65  # include "EOS.h"  # include "EOS.h"
66  # ifdef ALLOW_EXF  # ifdef ALLOW_EXF
67  #  include "EXF_FIELDS.h"  #  include "EXF_FIELDS.h"
68  #  ifdef ALLOW_BULKFORMULAE  #  include "EXF_CONSTANTS.h"
 #   include "EXF_CONSTANTS.h"  
 #  endif  
69  # endif  # endif
70  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF */
71    
72  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
73  C     myTime :: time counter for this thread  C     myTime :: time counter for this thread
# Line 68  C     myThid :: thread number for this i Line 78  C     myThid :: thread number for this i
78        INTEGER myThid        INTEGER myThid
79    
80  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
81    #if (defined ALLOW_ADDFLUID) || (defined ALLOW_FRICTION_HEATING)
82          INTEGER i,j,k,bi,bj
83    #endif
84  CEOP  CEOP
85    
86  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
87        IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )        IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )
88  #endif  #endif
89    
90    C--   Initialise forcing arrays that may receive multiple contributions
91    #ifdef ALLOW_ADDFLUID
92          IF ( selectAddFluid.NE.0 .AND. addMassFile.EQ.' ' ) THEN
93            DO bj=myByLo(myThid),myByHi(myThid)
94             DO bi=myBxLo(myThid),myBxHi(myThid)
95              DO k=1,Nr
96               DO j=1-OLy,sNy+OLy
97                DO i=1-OLx,sNx+OLx
98                 addMass(i,j,k,bi,bj) =  0. _d 0
99                ENDDO
100               ENDDO
101              ENDDO
102             ENDDO
103            ENDDO
104          ENDIF
105    #endif /* ALLOW_ADDFLUID */
106    
107    #ifdef ALLOW_FRICTION_HEATING
108          IF ( addFrictionHeating .AND. staggerTimeStep ) THEN
109            DO bj=myByLo(myThid),myByHi(myThid)
110             DO bi=myBxLo(myThid),myBxHi(myThid)
111              DO k=1,Nr
112               DO j=1-OLy,sNy+OLy
113                DO i=1-OLx,sNx+OLx
114                 frictionHeating(i,j,k,bi,bj) = 0. _d 0
115                ENDDO
116               ENDDO
117              ENDDO
118             ENDDO
119            ENDDO
120          ENDIF
121    #endif /* ALLOW_FRICTION_HEATING */
122    
123    C--   Map generic time varying controls to xx_gentim2d
124    #ifdef ALLOW_CTRL
125          if (useCTRL) CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid )
126    #endif
127    
128  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
129        IF ( useBulkForce ) THEN        IF ( useBulkForce ) THEN
130  C--   Bulk-Formulae pkg: load all forcing fields at current time  C--   Bulk-Formulae pkg: load all forcing fields at current time
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22