/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.49 by jmc, Fri Aug 10 19:38:57 2012 UTC revision 1.50 by gforget, Tue Aug 28 19:18:26 2012 UTC
# Line 224  c--   Zonal wind stress. Line 224  c--   Zonal wind stress.
224       &     snx, sny, 1, 'c', 'xy', mythid )       &     snx, sny, 1, 'c', 'xy', mythid )
225  #endif  #endif
226    
227  #elif (defined (ALLOW_UWIND_CONTROL))  #elif (defined (ALLOW_TAUU0_CONTROL))
228    c--   initial forcing only
229          call ctrl_init_ctrlvar (
230         &     xx_tauu_file, 5, 105, 1, 1, 1,
231         &     snx, sny, 1, 'w', 'xy', mythid )
232    
233    #endif /* ALLOW_USTRESS_CONTROL */
234    
235    #if (defined (ALLOW_UWIND_CONTROL))
236  c--   Zonal wind speed.  c--   Zonal wind speed.
237        call ctrl_init_rec ( xx_uwind_file,        call ctrl_init_rec ( xx_uwind_file,
238       I     xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod, 1,       I     xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod, 1,
# Line 233  c--   Zonal wind speed. Line 241  c--   Zonal wind speed.
241        call ctrl_init_ctrlvar (        call ctrl_init_ctrlvar (
242       &     xx_uwind_file, 9, 109, diffrec, startrec, endrec,       &     xx_uwind_file, 9, 109, diffrec, startrec, endrec,
243       &     snx, sny, 1, 'c', 'xy', mythid )       &     snx, sny, 1, 'c', 'xy', mythid )
244    #endif /* ALLOW_UWIND_CONTROL */
 #elif (defined (ALLOW_TAUU0_CONTROL))  
 c--   initial forcing only  
       call ctrl_init_ctrlvar (  
      &     xx_tauu_file, 5, 105, 1, 1, 1,  
      &     snx, sny, 1, 'w', 'xy', mythid )  
   
 #endif /* ALLOW_USTRESS_CONTROL */  
245    
246  c----------------------------------------------------------------------  c----------------------------------------------------------------------
247  c--  c--
# Line 258  c--   Meridional wind stress. Line 259  c--   Meridional wind stress.
259       &     snx, sny, 1, 'c', 'xy', mythid )       &     snx, sny, 1, 'c', 'xy', mythid )
260  #endif  #endif
261    
262  #elif (defined (ALLOW_VWIND_CONTROL))  #elif (defined (ALLOW_TAUV0_CONTROL))
263    c--   initial forcing only
264          call ctrl_init_ctrlvar (
265         &     xx_tauv_file, 6, 106, 1, 1, 1,
266         &     snx, sny, 1, 's', 'xy', mythid )
267    
268    #endif /* ALLOW_VSTRESS_CONTROL */
269    
270    #if (defined (ALLOW_VWIND_CONTROL))
271  c--   Meridional wind speed.  c--   Meridional wind speed.
272        call ctrl_init_rec ( xx_vwind_file,        call ctrl_init_rec ( xx_vwind_file,
273       I     xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod, 1,       I     xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod, 1,
# Line 267  c--   Meridional wind speed. Line 276  c--   Meridional wind speed.
276        call ctrl_init_ctrlvar (        call ctrl_init_ctrlvar (
277       &     xx_vwind_file, 10, 110, diffrec, startrec, endrec,       &     xx_vwind_file, 10, 110, diffrec, startrec, endrec,
278       &     snx, sny, 1, 'c', 'xy', mythid )       &     snx, sny, 1, 'c', 'xy', mythid )
279    #endif /* ALLOW_VWIND_CONTROL */
 #elif (defined (ALLOW_TAUV0_CONTROL))  
 c--   initial forcing only  
       call ctrl_init_ctrlvar (  
      &     xx_tauv_file, 6, 106, 1, 1, 1,  
      &     snx, sny, 1, 's', 'xy', mythid )  
   
 #endif /* ALLOW_VSTRESS_CONTROL */  
280    
281  c--   ===========================  c--   ===========================
282  c--   Open boundary contributions.  c--   Open boundary contributions.
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22