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