/[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.9 by jmc, Thu Nov 18 00:57:24 2010 UTC revision 1.10 by jmc, Mon Feb 21 22:26:50 2011 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.h"  # include "ctrl.h"
49  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
50  # include "cost.h"  # include "cost.h"
51  # include "FFIELDS.h"  # include "FFIELDS.h"
52  # include "EOS.h"  # include "EOS.h"
 c# if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)  
 c#  include "GRID.h"  
 c# endif  
53  # ifdef ALLOW_EXF  # ifdef ALLOW_EXF
54  #  include "EXF_FIELDS.h"  #  include "EXF_FIELDS.h"
55  #  ifdef ALLOW_BULKFORMULAE  #  ifdef ALLOW_BULKFORMULAE
56  #   include "EXF_CONSTANTS.h"  #   include "EXF_CONSTANTS.h"
57  #  endif  #  endif
58  # 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  
59  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
60    
61  C     !LOCAL VARIABLES:  C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==  
62  C     myTime :: time counter for this thread  C     myTime :: time counter for this thread
63  C     myIter :: iteration counter for this thread  C     myIter :: iteration counter for this thread
64  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 66  C     myThid :: thread number for this i
66        INTEGER myIter        INTEGER myIter
67        INTEGER myThid        INTEGER myThid
68    
69  C     == Local variables ==  C     !LOCAL VARIABLES:
70  CEOP  CEOP
71    
72  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 159  C--   Call external CheapAML forcing pac Line 109  C--   Call external CheapAML forcing pac
109    
110  c     IF ( .NOT.useEXF ) THEN  c     IF ( .NOT.useEXF ) THEN
111  C- note (useEBM): needs modifications to be compatible with this call  C- note (useEBM): needs modifications to be compatible with this call
112        IF ( .NOT.(useEXF.OR.useEBM) ) THEN        IF ( .NOT.(useEXF.OR.useEBM.OR.useCheapAML) ) THEN
113  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
114          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)
115  #endif  #endif
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22