/[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.16 by heimbach, Thu Apr 7 23:38:43 2005 UTC revision 1.17 by heimbach, Thu Jul 28 13:47:49 2005 UTC
# Line 125  cph( Line 125  cph(
125  cph    index  7-10 reserved for atmos. state,  cph    index  7-10 reserved for atmos. state,
126  cph    index 11-14 reserved for open boundaries,  cph    index 11-14 reserved for open boundaries,
127  cph    index 15-16 reserved for mixing coeff.  cph    index 15-16 reserved for mixing coeff.
128  cph    index 17    reserved for passive tracer TR1  cph    index 17    reserved for precip. (atmos. state)
129  cph    index 18,19 reserved for sst, sss  cph    index 18,19 reserved for sst, sss
130  cph    index 20             for hFacC  cph    index 20             for hFacC
131  cph    index 21-22          for efluxy, efluxp  cph    index 21-22          for efluxy, efluxp
132  cph    index 23-24          for bottom drag  cph    index 23             for bottom drag
133    cph    index 24
134    cph    index 25-26          for edtaux, edtauy
135    cph    index 27-29          for uvel0, vvel0, etan0
136    cph    index 30-31          for relax. SST, SSS
137    cph    index 32    reserved for passive tracer TR1
138    
139  cph)  cph)
140    
141  c----------------------------------------------------------------------  c----------------------------------------------------------------------
# Line 497  c-- Line 503  c--
503    
504  c----------------------------------------------------------------------  c----------------------------------------------------------------------
505  c--  c--
506  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
507    c--   Atmos. precipitation
508    
509    # ifdef ALLOW_CAL
510            call cal_FullDate( xx_precipstartdate1, xx_precipstartdate2,
511         &                     xx_precipstartdate , mythid )
512            call cal_TimePassed( xx_precipstartdate, modelstartdate,
513         &                       difftime, mythid )
514            call cal_ToSeconds ( difftime, diffsecs, mythid )
515            startrec = int((modelstart + startTime - diffsecs)/
516         &                 xx_precipperiod) + 1
517            endrec   = int((modelend + startTime - diffsecs + modelstep/2)/
518         &                 xx_precipperiod) + 2
519    # else
520            startrec = 1
521            endrec   = 1
522    # endif
523            diffrec  = endrec - startrec + 1
524          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
525       &       xx_tr1_file, 17, 117, 1, 1, 1,       &       xx_precip_file, 17, 117, diffrec, startrec, endrec,
526       &       snx, sny, nr, 'c', '3d', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
527  #endif /* ALLOW_TR10_CONTROL */  
528    #endif /* ALLOW_PRECIP_CONTROL */
529    
530  c----------------------------------------------------------------------  c----------------------------------------------------------------------
531  c--  c--
# Line 614  c-- Line 638  c--
638  #endif /* ALLOW_RELAXSSS_CONTROL */  #endif /* ALLOW_RELAXSSS_CONTROL */
639    
640  c----------------------------------------------------------------------  c----------------------------------------------------------------------
641    c--
642    #ifdef ALLOW_TR10_CONTROL
643            call ctrl_init_ctrlvar (
644         &       xx_tr1_file, 32, 132, 1, 1, 1,
645         &       snx, sny, nr, 'c', '3d', mythid )
646    #endif /* ALLOW_TR10_CONTROL */
647    
648    c----------------------------------------------------------------------
649  c----------------------------------------------------------------------  c----------------------------------------------------------------------
650  c----------------------------------------------------------------------  c----------------------------------------------------------------------
651    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22