/[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.14 by jmc, Fri Nov 9 22:40:36 2012 UTC
# Line 42  C     == Global variables == Line 42  C     == Global variables ==
42  #include "SIZE.h"  #include "SIZE.h"
43  #include "EEPARAMS.h"  #include "EEPARAMS.h"
44  #include "PARAMS.h"  #include "PARAMS.h"
45    #include "FFIELDS.h"
46    
47  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
48  # include "tamc.h"  # include "tamc.h"
# Line 49  C     == Global variables == Line 50  C     == Global variables ==
50  # include "ctrl.h"  # include "ctrl.h"
51  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
52  # include "cost.h"  # include "cost.h"
 # include "FFIELDS.h"  
53  # include "EOS.h"  # include "EOS.h"
54  # ifdef ALLOW_EXF  # ifdef ALLOW_EXF
55  #  include "EXF_FIELDS.h"  #  include "EXF_FIELDS.h"
# Line 68  C     myThid :: thread number for this i Line 68  C     myThid :: thread number for this i
68        INTEGER myThid        INTEGER myThid
69    
70  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
71    #if (defined ALLOW_ADDFLUID) || (defined ALLOW_FRICTION_HEATING)
72          INTEGER i,j,k,bi,bj
73    #endif
74  CEOP  CEOP
75    
76  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
77        IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )        IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )
78  #endif  #endif
79    
80    C--   Initialise forcing arrays that may receive multiple contributions
81    #ifdef ALLOW_ADDFLUID
82          IF ( addMassFile .EQ. ' ' ) THEN
83            DO bj=myByLo(myThid),myByHi(myThid)
84             DO bi=myBxLo(myThid),myBxHi(myThid)
85              DO k=1,Nr
86               DO j=1-OLy,sNy+OLy
87                DO i=1-OLx,sNx+OLx
88                 addMass(i,j,k,bi,bj) =  0. _d 0
89                ENDDO
90               ENDDO
91              ENDDO
92             ENDDO
93            ENDDO
94          ENDIF
95    #endif /* ALLOW_ADDFLUID */
96    
97    #ifdef ALLOW_FRICTION_HEATING
98          IF ( addFrictionHeating ) THEN
99            DO bj=myByLo(myThid),myByHi(myThid)
100             DO bi=myBxLo(myThid),myBxHi(myThid)
101              DO k=1,Nr
102               DO j=1-OLy,sNy+OLy
103                DO i=1-OLx,sNx+OLx
104                 frictionHeating(i,j,k,bi,bj) = 0. _d 0
105                ENDDO
106               ENDDO
107              ENDDO
108             ENDDO
109            ENDDO
110          ENDIF
111    #endif /* ALLOW_FRICTION_HEATING */
112    
113  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
114        IF ( useBulkForce ) THEN        IF ( useBulkForce ) THEN
115  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.14
  ViewVC Help
Powered by ViewVC 1.1.22