/[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.8 by heimbach, Fri Feb 13 21:56:48 2009 UTC revision 1.12 by heimbach, Tue Jul 31 16:09:43 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
   
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
 c#ifdef ALLOW_GMREDI  
 c# include "GMREDI_OPTIONS.h"  
 c#endif  
 c#ifdef ALLOW_OBCS  
 c# include "OBCS_OPTIONS.h"  
 c#endif  
   
7  CBOP  CBOP
8  C     !ROUTINE: LOAD_FIELDS_DRIVER  C     !ROUTINE: LOAD_FIELDS_DRIVER
9  C     !INTERFACE:  C     !INTERFACE:
# Line 32  C       |-- BULKF_FIELDS_LOAD Line 24  C       |-- BULKF_FIELDS_LOAD
24  C       |  C       |
25  C       |-- EXF_GETFORCING  C       |-- EXF_GETFORCING
26  C       |  C       |
27    C       |-- CHEAPAML_FIELDS_LOAD
28    C       |
29  C       |-- EXTERNAL_FIELDS_LOAD  C       |-- EXTERNAL_FIELDS_LOAD
30  C       |  C       |
31  C       |-- OFFLINE_FIELDS_LOAD  C       |-- OFFLINE_FIELDS_LOAD
# Line 41  C       | Line 35  C       |
35  C       |-- RBCS_FIELDS_LOAD  C       |-- RBCS_FIELDS_LOAD
36  C       |  C       |
37  C       |-- AIM_FIELDS_LOAD  C       |-- AIM_FIELDS_LOAD
 C       |  
 C       |-- CHEAPAML_FIELDS_LOAD  
   
38    
39  C     !USES:  C     !USES:
40        IMPLICIT NONE        IMPLICIT NONE
# Line 51  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"
 c#include "DYNVARS.h"  
   
 c#ifdef ALLOW_SHAP_FILT  
 c# include "SHAP_FILT.h"  
 c#endif  
 c#ifdef ALLOW_ZONAL_FILT  
 c# include "ZONAL_FILT.h"  
 c#endif  
 c#ifdef COMPONENT_MODULE  
 c# include "CPL_PARAMS.h"  
 c#endif  
45    
46  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
   
47  # include "tamc.h"  # include "tamc.h"
48    # include "CTRL_SIZE.h"
49  # include "ctrl.h"  # include "ctrl.h"
50  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
51  # include "cost.h"  # include "cost.h"
52  # include "FFIELDS.h"  # include "FFIELDS.h"
53  # include "EOS.h"  # include "EOS.h"
 c# if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)  
 c#  include "GRID.h"  
 c# endif  
54  # ifdef ALLOW_EXF  # ifdef ALLOW_EXF
55  #  include "EXF_FIELDS.h"  #  include "EXF_FIELDS.h"
56  #  ifdef ALLOW_BULKFORMULAE  #  ifdef ALLOW_BULKFORMULAE
57  #   include "EXF_CONSTANTS.h"  #   include "EXF_CONSTANTS.h"
58  #  endif  #  endif
59  # endif  # endif
 c# ifdef ALLOW_OBCS  
 c#  include "OBCS.h"  
 c#  ifdef ALLOW_PTRACERS  
 c#   include "PTRACERS_SIZE.h"  
 c#   include "OBCS_PTRACERS.h"  
 c#  endif  
 c# endif  
 c# ifdef ALLOW_CD_CODE  
 c#  include "CD_CODE_VARS.h"  
 c# endif  
 c# ifdef ALLOW_THSICE  
 c#  include "THSICE_VARS.h"  
 c# endif  
 c# ifdef ALLOW_EBM  
 c#  include "EBM.h"  
 c# endif  
 c# ifdef EXACT_CONSERV  
 c#  include "SURFACE.h"  
 c# endif  
 c# ifdef ALLOW_KPP  
 c#  include "KPP.h"  
 c# endif  
 c# ifdef ALLOW_GMREDI  
 c#  include "GMREDI.h"  
 c# endif  
60  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
61    
62  C     !LOCAL VARIABLES:  C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==  
63  C     myTime :: time counter for this thread  C     myTime :: time counter for this thread
64  C     myIter :: iteration counter for this thread  C     myIter :: iteration counter for this thread
65  C     myThid :: thread number for this instance of the routine.  C     myThid :: thread number for this instance of the routine.
# Line 116  C     myThid :: thread number for this i Line 67  C     myThid :: thread number for this i
67        INTEGER myIter        INTEGER myIter
68        INTEGER myThid        INTEGER myThid
69    
70  C     == Local variables ==  C     !LOCAL VARIABLES:
71  CEOP  CEOP
72    
73  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
74        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )
      &     CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )  
75  #endif  #endif
76    
77  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
78        IF ( useBulkForce ) THEN        IF ( useBulkForce ) THEN
79  C--   Bulk-Formulae pkg: load all forcing fields at current time  C--   Bulk-Formulae pkg: load all forcing fields at current time
80  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
81          IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)
      &   CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)  
82  #endif  #endif
83          CALL TIMER_START('BULKF_FIELDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_START('BULKF_FIELDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)
84          CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid )          CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid )
# Line 141  C--   Call external forcing package Line 90  C--   Call external forcing package
90  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
91        IF (useEXF) THEN        IF (useEXF) THEN
92  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
93        IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('EXF_GETFORCING',myThid)
      &   CALL DEBUG_CALL('EXF_GETFORCING',myThid)  
94  # endif  # endif
95          CALL TIMER_START('EXF_GETFORCING     [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_START('EXF_GETFORCING     [LOAD_FLDS_DRIVER]',myThid)
96          CALL EXF_GETFORCING( myTime, myIter, myThid )          CALL EXF_GETFORCING( myTime, myIter, myThid )
# Line 150  C--   Call external forcing package Line 98  C--   Call external forcing package
98        ENDIF        ENDIF
99  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
100    
   
101  C--   Call external CheapAML forcing package  C--   Call external CheapAML forcing package
102  #ifdef ALLOW_CHEAPAML  #ifdef ALLOW_CHEAPAML
103        IF ( useCheapAML  ) THEN        IF ( useCheapAML  ) THEN
104  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
105        IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid)
      &    CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid)  
106  #endif  #endif
107            CALL CHEAPAML_FIELDS_LOAD( myTime,myIter, myThid )          CALL CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid )
108         ENDIF        ENDIF
109  #endif /*ALLOW_CHEAPAML */  #endif /*ALLOW_CHEAPAML */
110    
111          IF ( .NOT.(useEXF.OR.useCheapAML) ) THEN
   
 c     IF ( .NOT.useEXF ) THEN  
 C- note (useEBM): needs modifications to be compatible with this call  
       IF ( .NOT.(useEXF.OR.useEBM) ) THEN  
112  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
113          IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)
      &   CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)  
114  #endif  #endif
115          CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)
116          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )
# Line 186  CADJ STORE Qsw    = comlev1, key = ikey_ Line 127  CADJ STORE Qsw    = comlev1, key = ikey_
127  #ifdef ALLOW_OFFLINE  #ifdef ALLOW_OFFLINE
128        IF ( useOffLine ) THEN        IF ( useOffLine ) THEN
129  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
130          IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid)
      &   CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid)  
131  #endif /* ALLOW_DEBUG */  #endif /* ALLOW_DEBUG */
132          CALL TIMER_START('OFFLINE_FLDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_START('OFFLINE_FLDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)
133          CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid )          CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid )
# Line 198  CADJ STORE Qsw    = comlev1, key = ikey_ Line 138  CADJ STORE Qsw    = comlev1, key = ikey_
138  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
139        IF ( useGCHEM ) THEN        IF ( useGCHEM ) THEN
140  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
141          IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid)
      &   CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid)  
142  #endif /* ALLOW_DEBUG */  #endif /* ALLOW_DEBUG */
143          CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid )          CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid )
144        ENDIF        ENDIF
# Line 219  C-     Update AIM bottom boundary data Line 158  C-     Update AIM bottom boundary data
158  #endif  #endif
159    
160  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
161        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid )
      &     CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid )  
162  #endif  #endif
163    
164        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22