/[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.18 by heimbach, Thu Jul 28 19:51:22 2005 UTC revision 1.19 by heimbach, Sat Aug 6 11:02:01 2005 UTC
# Line 136  cph    index 27-29          for uvel0, v Line 136  cph    index 27-29          for uvel0, v
136  cph    index 30-31          for relax. SST, SSS  cph    index 30-31          for relax. SST, SSS
137  cph    index 32    reserved for precip (atmos. state)  cph    index 32    reserved for precip (atmos. state)
138  cph    index 33    reserved for swflux (atmos. state)  cph    index 33    reserved for swflux (atmos. state)
139    cph    index 34    reserved for swdown (atmos. state)
140  cph)  cph)
141    
142  c----------------------------------------------------------------------  c----------------------------------------------------------------------
# Line 672  c--   Atmos. swflux Line 673  c--   Atmos. swflux
673  #endif /* ALLOW_SWFLUX_CONTROL */  #endif /* ALLOW_SWFLUX_CONTROL */
674    
675  c----------------------------------------------------------------------  c----------------------------------------------------------------------
676    c--
677    #ifdef ALLOW_SWDOWN_CONTROL
678    c--   Atmos. swdown
679    
680    # ifdef ALLOW_CAL
681            call cal_FullDate( xx_swdownstartdate1, xx_swdownstartdate2,
682         &                     xx_swdownstartdate , mythid )
683            call cal_TimePassed( xx_swdownstartdate, modelstartdate,
684         &                       difftime, mythid )
685            call cal_ToSeconds ( difftime, diffsecs, mythid )
686            startrec = int((modelstart + startTime - diffsecs)/
687         &                 xx_swdownperiod) + 1
688            endrec   = int((modelend + startTime - diffsecs + modelstep/2)/
689         &                 xx_swdownperiod) + 2
690    # else
691            startrec = 1
692            endrec   = 1
693    # endif
694            diffrec  = endrec - startrec + 1
695            call ctrl_init_ctrlvar (
696         &       xx_swdown_file, 34, 134, diffrec, startrec, endrec,
697         &       snx, sny, 1, 'c', 'xy', mythid )
698    
699    #endif /* ALLOW_SWDOWN_CONTROL */
700    
701    c----------------------------------------------------------------------
702  c----------------------------------------------------------------------  c----------------------------------------------------------------------
703  c----------------------------------------------------------------------  c----------------------------------------------------------------------
704    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22