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

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

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

revision 1.24 by dimitri, Mon Dec 20 23:32:52 2004 UTC revision 1.25 by heimbach, Wed Feb 23 21:52:58 2005 UTC
# Line 119  c     Zonal and meridional wind. Line 119  c     Zonal and meridional wind.
119  #ifdef ALLOW_UWIND_CONTROL  #ifdef ALLOW_UWIND_CONTROL
120        call ctrl_get_gen (        call ctrl_get_gen (
121       &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,       &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,
122       &     maskw, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy,       &     maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy,
123       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
124  #endif /* ALLOW_UWIND_CONTROL */  #endif /* ALLOW_UWIND_CONTROL */
125    
126  #ifdef ALLOW_VWIND_CONTROL  #ifdef ALLOW_VWIND_CONTROL
127        call ctrl_get_gen (        call ctrl_get_gen (
128       &     xx_vwind_file, xx_vwindstartdate, xx_vwindperiod,       &     xx_vwind_file, xx_vwindstartdate, xx_vwindperiod,
129       &     masks, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy,       &     maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy,
130       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
131  #endif /* ALLOW_VWIND_CONTROL */  #endif /* ALLOW_VWIND_CONTROL */
132    
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22