/[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.10 by heimbach, Thu Jul 28 19:52:33 2005 UTC revision 1.12 by jmc, Mon Apr 16 23:27:21 2007 UTC
# Line 1  Line 1 
 C  
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
# Line 40  c     == global variables == Line 39  c     == global variables ==
39  #include "PARAMS.h"  #include "PARAMS.h"
40  #include "GRID.h"  #include "GRID.h"
41    
42  #include "exf_fields.h"  #include "EXF_FIELDS.h"
43  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
44  # include "ctrl.h"  # include "ctrl.h"
45  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
# Line 60  c     == end of interface == Line 59  c     == end of interface ==
59        call ctrl_get_gen (        call ctrl_get_gen (
60       &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,       &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,
61       &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,       &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,
62         &     xx_hflux_remo_intercept, xx_hflux_remo_slope,
63       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
64  #endif  #endif
65    
# Line 67  c     == end of interface == Line 67  c     == end of interface ==
67        call ctrl_get_gen (        call ctrl_get_gen (
68       &     xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,       &     xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,
69       &     maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,       &     maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,
70         &     xx_sflux_remo_intercept, xx_sflux_remo_slope,
71       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
72  #endif  #endif
73    
# Line 74  c     == end of interface == Line 75  c     == end of interface ==
75        call ctrl_get_gen (        call ctrl_get_gen (
76       &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,       &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,
77       &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,       &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,
78         &     xx_tauu_remo_intercept, xx_tauu_remo_slope,
79       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
80  #endif  #endif
81    
# Line 81  c     == end of interface == Line 83  c     == end of interface ==
83        call ctrl_get_gen (        call ctrl_get_gen (
84       &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,       &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,
85       &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,       &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,
86         &     xx_tauv_remo_intercept, xx_tauv_remo_slope,
87       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
88  #endif  #endif
89    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22