/[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.4 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.12 by jmc, Mon Apr 16 23:27:21 2007 UTC
# Line 1  Line 1 
1  c $Header$  C $Header$
2    C $Name$
3    
4  #include "EXF_CPPOPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6        subroutine exf_GetSurfaceFluxes(        subroutine exf_GetSurfaceFluxes(
7       I                                 mytime,       I                                 mytime,
# Line 32  c     ================================== Line 33  c     ==================================
33    
34        implicit none        implicit none
35    
36    c     == global variables ==
37    #include "EEPARAMS.h"
38    #include "SIZE.h"
39    #include "PARAMS.h"
40    #include "GRID.h"
41    
42    #include "EXF_FIELDS.h"
43    #ifdef ALLOW_AUTODIFF
44    # include "ctrl.h"
45    # include "ctrl_dummy.h"
46    #endif
47    
48  c     == routine arguments ==  c     == routine arguments ==
49    
50        _RL mytime        _RL mytime
# Line 43  c     == global variables == Line 56  c     == global variables ==
56  c     == end of interface ==  c     == end of interface ==
57    
58  #ifdef ALLOW_HFLUX_CONTROL  #ifdef ALLOW_HFLUX_CONTROL
59        call ctrl_getheatflux ( mytime, myiter, mythid )        call ctrl_get_gen (
60         &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,
61         &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,
62         &     xx_hflux_remo_intercept, xx_hflux_remo_slope,
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         &     xx_sflux_remo_intercept, xx_sflux_remo_slope,
71         &     mytime, myiter, mythid )
72  #endif  #endif
73    
74  #ifdef ALLOW_USTRESS_CONTROL  #ifdef ALLOW_USTRESS_CONTROL
75        call ctrl_getzonstress ( mytime, myiter, mythid )        call ctrl_get_gen (
76         &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,
77         &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,
78         &     xx_tauu_remo_intercept, xx_tauu_remo_slope,
79         &     mytime, myiter, mythid )
80  #endif  #endif
81    
82  #ifdef ALLOW_VSTRESS_CONTROL  #ifdef ALLOW_VSTRESS_CONTROL
83        call ctrl_getmerstress ( mytime, myiter, mythid )        call ctrl_get_gen (
84  #endif       &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,
85         &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,
86  #ifdef ALLOW_SWFLUX_CONTROL       &     xx_tauv_remo_intercept, xx_tauv_remo_slope,
87        call ctrl_getswflux ( mytime, myiter, mythid )       &     mytime, myiter, mythid )
 #endif  
   
 #ifdef ALLOW_LWFLUX_CONTROL  
       call ctrl_getlwflux ( mytime, myiter, mythid )  
88  #endif  #endif
89    
90        end        end
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22