/[MITgcm]/MITgcm/pkg/exf/exf_getsurfacefluxes.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_getsurfacefluxes.F

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

revision 1.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.7 by edhill, Thu Oct 23 04:41:40 2003 UTC
# Line 1  Line 1 
1  c $Header$  C
2    C $Header$
3    C $Name$
4    
5  #include "EXF_CPPOPTIONS.h"  #include "AD_CONFIG.h"
6    #include "EXF_OPTIONS.h"
7    
8        subroutine exf_GetSurfaceFluxes(        subroutine exf_GetSurfaceFluxes(
9       I                                 mytime,       I                                 mytime,
# Line 18  c Line 21  c
21  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
22  c  c
23  c     changed: Christian Eckert eckert@mit.edu  14-Jan-2000  c     changed: Christian Eckert eckert@mit.edu  14-Jan-2000
 c  
24  c              - Restructured the code in order to create a package  c              - Restructured the code in order to create a package
25  c                for the MITgcmUV.  c                for the MITgcmUV.
26  c  c
27  c              Christian Eckert eckert@mit.edu  12-Feb-2000  c              Christian Eckert eckert@mit.edu  12-Feb-2000
 c  
28  c              - Changed Routine names (package prefix: exf_)  c              - Changed Routine names (package prefix: exf_)
29  c  c
30    c     mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
31    c
32  c     ==================================================================  c     ==================================================================
33  c     SUBROUTINE exf_GetSurfaceFluxes  c     SUBROUTINE exf_GetSurfaceFluxes
34  c     ==================================================================  c     ==================================================================
35    
36        implicit none        implicit none
37    
38    c     == global variables ==
39    #include "EEPARAMS.h"
40    #include "SIZE.h"
41    #include "PARAMS.h"
42    #include "GRID.h"
43    
44    #include "exf_fields.h"
45    #if (defined (ALLOW_ADJOINT_RUN) || \
46         defined (ALLOW_TANGENTLINEAR_RUN) || \
47         defined (ALLOW_ECCO_OPTIMIZATION))
48    # include "ctrl.h"
49    # include "ctrl_dummy.h"
50    #endif
51    
52  c     == routine arguments ==  c     == routine arguments ==
53    
54        _RL mytime        _RL mytime
# Line 42  c     == global variables == Line 59  c     == global variables ==
59    
60  c     == end of interface ==  c     == end of interface ==
61    
 c     Get the surface forcing fields.  
       call exf_GetFFields(  mytime, myiter, mythid )  
   
62  #ifdef ALLOW_HFLUX_CONTROL  #ifdef ALLOW_HFLUX_CONTROL
63        call ctrl_getheatflux ( mytime, myiter, mythid )        call ctrl_get_gen (
64         &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,
65         &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,
66         &     mytime, myiter, mythid )
67  #endif  #endif
68    
69  #ifdef ALLOW_SFLUX_CONTROL  #ifdef ALLOW_SFLUX_CONTROL
70        call ctrl_getsaltflux ( mytime, myiter, mythid )        call ctrl_get_gen (
71         &     xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,
72         &     maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,
73         &     mytime, myiter, mythid )
74  #endif  #endif
75    
76  #ifdef ALLOW_USTRESS_CONTROL  #ifdef ALLOW_USTRESS_CONTROL
77        call ctrl_getzonstress ( mytime, myiter, mythid )        call ctrl_get_gen (
78         &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,
79         &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,
80         &     mytime, myiter, mythid )
81  #endif  #endif
82    
83  #ifdef ALLOW_VSTRESS_CONTROL  #ifdef ALLOW_VSTRESS_CONTROL
84        call ctrl_getmerstress ( mytime, myiter, mythid )        call ctrl_get_gen (
85         &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,
86         &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,
87         &     mytime, myiter, mythid )
88  #endif  #endif
89    
90  #ifdef ALLOW_SWFLUX_CONTROL  #ifdef ALLOW_SWFLUX_CONTROL
91        call ctrl_getswflux ( mytime, myiter, mythid )        call ctrl_get_gen (
92    NOT YET IMPLEMENTED
93         &     mytime, myiter, mythid )
94  #endif  #endif
95    
96  #ifdef ALLOW_LWFLUX_CONTROL  #ifdef ALLOW_LWFLUX_CONTROL
97        call ctrl_getlwflux ( mytime, myiter, mythid )        call ctrl_get_gen (
98  #endif  NOT YET IMPLEMENTED
99         &     mytime, myiter, mythid )
 #ifdef ALLOW_CONTROL_NEW  
 c     Get the surface forcing control fields.  
       call exfa_GetFFields( mytime, myiter, mythid )  
100  #endif  #endif
101    
102        end        end
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22