/[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.11 by heimbach, Thu Mar 2 02:53:22 2006 UTC
# Line 60  c     == end of interface == Line 60  c     == end of interface ==
60        call ctrl_get_gen (        call ctrl_get_gen (
61       &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,       &     xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,
62       &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,       &     maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,
63         &     xx_hflux_remo_intercept, xx_hflux_remo_slope,
64       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
65  #endif  #endif
66    
# Line 67  c     == end of interface == Line 68  c     == end of interface ==
68        call ctrl_get_gen (        call ctrl_get_gen (
69       &     xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,       &     xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,
70       &     maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,       &     maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,
71         &     xx_sflux_remo_intercept, xx_sflux_remo_slope,
72       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
73  #endif  #endif
74    
# Line 74  c     == end of interface == Line 76  c     == end of interface ==
76        call ctrl_get_gen (        call ctrl_get_gen (
77       &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,       &     xx_tauu_file, xx_tauustartdate, xx_tauuperiod,
78       &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,       &     maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,
79         &     xx_tauu_remo_intercept, xx_tauu_remo_slope,
80       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
81  #endif  #endif
82    
# Line 81  c     == end of interface == Line 84  c     == end of interface ==
84        call ctrl_get_gen (        call ctrl_get_gen (
85       &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,       &     xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,
86       &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,       &     masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,
87         &     xx_tauv_remo_intercept, xx_tauv_remo_slope,
88       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
89  #endif  #endif
90    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22