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---------------------------------------------------------------------- |