/[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.19 by heimbach, Sat Aug 6 11:02:01 2005 UTC revision 1.20 by heimbach, Wed Aug 31 00:03:30 2005 UTC
# Line 512  c-- Line 512  c--
512    
513  c----------------------------------------------------------------------  c----------------------------------------------------------------------
514  c--  c--
515  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL))
516    
517    # ifdef ALLOW_CAL
518            call cal_FullDate( xx_sststartdate1, xx_sststartdate2,
519         &                     xx_sststartdate , mythid )
520            call cal_TimePassed( xx_sststartdate, modelstartdate,
521         &                       difftime, mythid )
522            call cal_ToSeconds ( difftime, diffsecs, mythid )
523            startrec = int((modelstart + startTime - diffsecs)/
524         &                 xx_sstperiod) + 1
525            endrec   = int((modelend + startTime - diffsecs + modelstep/2)/
526         &                 xx_sstperiod) + 2
527    # else
528            startrec = 1
529            endrec   = 1
530    # endif
531            diffrec  = endrec - startrec + 1
532            call ctrl_init_ctrlvar (
533         &       xx_sst_file, 18, 118, diffrec, startrec, endrec,
534         &       snx, sny, 1, 'c', 'xy', mythid )
535    
536    #elif (defined (ALLOW_SST0_CONTROL))
537    
538          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
539       &       xx_sst_file, 18, 118, 1, 1, 1,       &       xx_sst_file, 18, 118, 1, 1, 1,
540       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
541  #endif /* ALLOW_SST0_CONTROL */  
542    #endif /* ALLOW_SST_CONTROL */
543    
544  c----------------------------------------------------------------------  c----------------------------------------------------------------------
545  c--  c--
546  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL))
547    
548    # ifdef ALLOW_CAL
549            call cal_FullDate( xx_sssstartdate1, xx_sssstartdate2,
550         &                     xx_sssstartdate , mythid )
551            call cal_TimePassed( xx_sssstartdate, modelstartdate,
552         &                       difftime, mythid )
553            call cal_ToSeconds ( difftime, diffsecs, mythid )
554            startrec = int((modelstart + startTime - diffsecs)/
555         &                 xx_sssperiod) + 1
556            endrec   = int((modelend + startTime - diffsecs + modelstep/2)/
557         &                 xx_sssperiod) + 2
558    # else
559            startrec = 1
560            endrec   = 1
561    # endif
562            diffrec  = endrec - startrec + 1
563            call ctrl_init_ctrlvar (
564         &       xx_sss_file, 19, 119, diffrec, startrec, endrec,
565         &       snx, sny, 1, 'c', 'xy', mythid )
566    
567    #elif (defined (ALLOW_SSS0_CONTROL))
568    
569          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
570       &       xx_sss_file, 19, 119, 1, 1, 1,       &       xx_sss_file, 19, 119, 1, 1, 1,
571       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
572    
573  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
574    
575  c----------------------------------------------------------------------  c----------------------------------------------------------------------
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22