190 |
c-- |
c-- |
191 |
#if (defined (ALLOW_HFLUX_CONTROL)) |
#if (defined (ALLOW_HFLUX_CONTROL)) |
192 |
c-- Heat flux. |
c-- Heat flux. |
193 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_hflux_file, |
194 |
I xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod, 1, |
I xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod, 1, |
195 |
O xx_hfluxstartdate, diffrec, startrec, endrec, |
O xx_hfluxstartdate, diffrec, startrec, endrec, |
196 |
I mythid ) |
I mythid ) |
200 |
|
|
201 |
#elif (defined (ALLOW_ATEMP_CONTROL)) |
#elif (defined (ALLOW_ATEMP_CONTROL)) |
202 |
c-- Atmos. temperature |
c-- Atmos. temperature |
203 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_atemp_file, |
204 |
I xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod, 1, |
I xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod, 1, |
205 |
O xx_atempstartdate, diffrec, startrec, endrec, |
O xx_atempstartdate, diffrec, startrec, endrec, |
206 |
I mythid ) |
I mythid ) |
220 |
c-- |
c-- |
221 |
#if (defined (ALLOW_SFLUX_CONTROL)) |
#if (defined (ALLOW_SFLUX_CONTROL)) |
222 |
c-- Salt flux. |
c-- Salt flux. |
223 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_sflux_file, |
224 |
I xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod, 1, |
I xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod, 1, |
225 |
O xx_sfluxstartdate, diffrec, startrec, endrec, |
O xx_sfluxstartdate, diffrec, startrec, endrec, |
226 |
I mythid ) |
I mythid ) |
230 |
|
|
231 |
#elif (defined (ALLOW_AQH_CONTROL)) |
#elif (defined (ALLOW_AQH_CONTROL)) |
232 |
c-- Atmos. humidity |
c-- Atmos. humidity |
233 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_aqh_file, |
234 |
I xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod, 1, |
I xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod, 1, |
235 |
O xx_aqhstartdate, diffrec, startrec, endrec, |
O xx_aqhstartdate, diffrec, startrec, endrec, |
236 |
I mythid ) |
I mythid ) |
250 |
c-- |
c-- |
251 |
#if (defined (ALLOW_USTRESS_CONTROL)) |
#if (defined (ALLOW_USTRESS_CONTROL)) |
252 |
c-- Zonal wind stress. |
c-- Zonal wind stress. |
253 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_tauu_file, |
254 |
I xx_tauustartdate1, xx_tauustartdate2, xx_tauuperiod, 1, |
I xx_tauustartdate1, xx_tauustartdate2, xx_tauuperiod, 1, |
255 |
O xx_tauustartdate, diffrec, startrec, endrec, |
O xx_tauustartdate, diffrec, startrec, endrec, |
256 |
I mythid ) |
I mythid ) |
264 |
|
|
265 |
#elif (defined (ALLOW_UWIND_CONTROL)) |
#elif (defined (ALLOW_UWIND_CONTROL)) |
266 |
c-- Zonal wind speed. |
c-- Zonal wind speed. |
267 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_uwind_file, |
268 |
I xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod, 1, |
I xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod, 1, |
269 |
O xx_uwindstartdate, diffrec, startrec, endrec, |
O xx_uwindstartdate, diffrec, startrec, endrec, |
270 |
I mythid ) |
I mythid ) |
284 |
c-- |
c-- |
285 |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
286 |
c-- Meridional wind stress. |
c-- Meridional wind stress. |
287 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_tauv_file, |
288 |
I xx_tauvstartdate1, xx_tauvstartdate2, xx_tauvperiod, 1, |
I xx_tauvstartdate1, xx_tauvstartdate2, xx_tauvperiod, 1, |
289 |
O xx_tauvstartdate, diffrec, startrec, endrec, |
O xx_tauvstartdate, diffrec, startrec, endrec, |
290 |
I mythid ) |
I mythid ) |
298 |
|
|
299 |
#elif (defined (ALLOW_VWIND_CONTROL)) |
#elif (defined (ALLOW_VWIND_CONTROL)) |
300 |
c-- Meridional wind speed. |
c-- Meridional wind speed. |
301 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_vwind_file, |
302 |
I xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod, 1, |
I xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod, 1, |
303 |
O xx_vwindstartdate, diffrec, startrec, endrec, |
O xx_vwindstartdate, diffrec, startrec, endrec, |
304 |
I mythid ) |
I mythid ) |
322 |
c-- |
c-- |
323 |
#ifdef ALLOW_OBCSN_CONTROL |
#ifdef ALLOW_OBCSN_CONTROL |
324 |
c-- Northern obc. |
c-- Northern obc. |
325 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_obcsn_file, |
326 |
I xx_obcsnstartdate1, xx_obcsnstartdate2, xx_obcsnperiod, 4, |
I xx_obcsnstartdate1, xx_obcsnstartdate2, xx_obcsnperiod, 4, |
327 |
O xx_obcsnstartdate, diffrec, startrec, endrec, |
O xx_obcsnstartdate, diffrec, startrec, endrec, |
328 |
I mythid ) |
I mythid ) |
335 |
c-- |
c-- |
336 |
#ifdef ALLOW_OBCSS_CONTROL |
#ifdef ALLOW_OBCSS_CONTROL |
337 |
c-- Southern obc. |
c-- Southern obc. |
338 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_obcss_file, |
339 |
I xx_obcssstartdate1, xx_obcssstartdate2, xx_obcssperiod, 4, |
I xx_obcssstartdate1, xx_obcssstartdate2, xx_obcssperiod, 4, |
340 |
O xx_obcssstartdate, diffrec, startrec, endrec, |
O xx_obcssstartdate, diffrec, startrec, endrec, |
341 |
I mythid ) |
I mythid ) |
348 |
c-- |
c-- |
349 |
#ifdef ALLOW_OBCSW_CONTROL |
#ifdef ALLOW_OBCSW_CONTROL |
350 |
c-- Western obc. |
c-- Western obc. |
351 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_obcsw_file, |
352 |
I xx_obcswstartdate1, xx_obcswstartdate2, xx_obcswperiod, 4, |
I xx_obcswstartdate1, xx_obcswstartdate2, xx_obcswperiod, 4, |
353 |
O xx_obcswstartdate, diffrec, startrec, endrec, |
O xx_obcswstartdate, diffrec, startrec, endrec, |
354 |
I mythid ) |
I mythid ) |
361 |
c-- |
c-- |
362 |
#ifdef ALLOW_OBCSE_CONTROL |
#ifdef ALLOW_OBCSE_CONTROL |
363 |
c-- Eastern obc. |
c-- Eastern obc. |
364 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_obcse_file, |
365 |
I xx_obcsestartdate1, xx_obcsestartdate2, xx_obcseperiod, 4, |
I xx_obcsestartdate1, xx_obcsestartdate2, xx_obcseperiod, 4, |
366 |
O xx_obcsestartdate, diffrec, startrec, endrec, |
O xx_obcsestartdate, diffrec, startrec, endrec, |
367 |
I mythid ) |
I mythid ) |
427 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
428 |
c-- |
c-- |
429 |
#if (defined (ALLOW_SST_CONTROL)) |
#if (defined (ALLOW_SST_CONTROL)) |
430 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_sst_file, |
431 |
I xx_sststartdate1, xx_sststartdate2, xx_sstperiod, 1, |
I xx_sststartdate1, xx_sststartdate2, xx_sstperiod, 1, |
432 |
O xx_sststartdate, diffrec, startrec, endrec, |
O xx_sststartdate, diffrec, startrec, endrec, |
433 |
I mythid ) |
I mythid ) |
445 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
446 |
c-- |
c-- |
447 |
#if (defined (ALLOW_SSS_CONTROL)) |
#if (defined (ALLOW_SSS_CONTROL)) |
448 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_sss_file, |
449 |
I xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod, 1, |
I xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod, 1, |
450 |
O xx_sssstartdate, diffrec, startrec, endrec, |
O xx_sssstartdate, diffrec, startrec, endrec, |
451 |
I mythid ) |
I mythid ) |
556 |
c-- |
c-- |
557 |
#ifdef ALLOW_PRECIP_CONTROL |
#ifdef ALLOW_PRECIP_CONTROL |
558 |
c-- Atmos. precipitation |
c-- Atmos. precipitation |
559 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_precip_file, |
560 |
I xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,1, |
I xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,1, |
561 |
O xx_precipstartdate, diffrec, startrec, endrec, |
O xx_precipstartdate, diffrec, startrec, endrec, |
562 |
I mythid ) |
I mythid ) |
570 |
c-- |
c-- |
571 |
#ifdef ALLOW_SWFLUX_CONTROL |
#ifdef ALLOW_SWFLUX_CONTROL |
572 |
c-- Atmos. swflux |
c-- Atmos. swflux |
573 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_swflux_file, |
574 |
I xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod, 1, |
I xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod, 1, |
575 |
O xx_swfluxstartdate, diffrec, startrec, endrec, |
O xx_swfluxstartdate, diffrec, startrec, endrec, |
576 |
I mythid ) |
I mythid ) |
584 |
c-- |
c-- |
585 |
#ifdef ALLOW_SWDOWN_CONTROL |
#ifdef ALLOW_SWDOWN_CONTROL |
586 |
c-- Atmos. swdown |
c-- Atmos. swdown |
587 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_swdown_file, |
588 |
I xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod, 1, |
I xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod, 1, |
589 |
O xx_swdownstartdate, diffrec, startrec, endrec, |
O xx_swdownstartdate, diffrec, startrec, endrec, |
590 |
I mythid ) |
I mythid ) |
598 |
c-- |
c-- |
599 |
#ifdef ALLOW_LWFLUX_CONTROL |
#ifdef ALLOW_LWFLUX_CONTROL |
600 |
c-- Atmos. lwflux |
c-- Atmos. lwflux |
601 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_lwflux_file, |
602 |
I xx_lwfluxstartdate1, xx_lwfluxstartdate2, xx_lwfluxperiod, 1, |
I xx_lwfluxstartdate1, xx_lwfluxstartdate2, xx_lwfluxperiod, 1, |
603 |
O xx_lwfluxstartdate, diffrec, startrec, endrec, |
O xx_lwfluxstartdate, diffrec, startrec, endrec, |
604 |
I mythid ) |
I mythid ) |
612 |
c-- |
c-- |
613 |
#ifdef ALLOW_LWDOWN_CONTROL |
#ifdef ALLOW_LWDOWN_CONTROL |
614 |
c-- Atmos. lwdown |
c-- Atmos. lwdown |
615 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_lwdown_file, |
616 |
I xx_lwdownstartdate1, xx_lwdownstartdate2, xx_lwdownperiod, 1, |
I xx_lwdownstartdate1, xx_lwdownstartdate2, xx_lwdownperiod, 1, |
617 |
O xx_lwdownstartdate, diffrec, startrec, endrec, |
O xx_lwdownstartdate, diffrec, startrec, endrec, |
618 |
I mythid ) |
I mythid ) |
626 |
c-- |
c-- |
627 |
#ifdef ALLOW_EVAP_CONTROL |
#ifdef ALLOW_EVAP_CONTROL |
628 |
c-- Atmos. evap |
c-- Atmos. evap |
629 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_evap_file, |
630 |
I xx_evapstartdate1, xx_evapstartdate2, xx_evapperiod, 1, |
I xx_evapstartdate1, xx_evapstartdate2, xx_evapperiod, 1, |
631 |
O xx_evapstartdate, diffrec, startrec, endrec, |
O xx_evapstartdate, diffrec, startrec, endrec, |
632 |
I mythid ) |
I mythid ) |
640 |
c-- |
c-- |
641 |
#ifdef ALLOW_SNOWPRECIP_CONTROL |
#ifdef ALLOW_SNOWPRECIP_CONTROL |
642 |
c-- Atmos. snowprecip |
c-- Atmos. snowprecip |
643 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_snowprecip_file, |
644 |
I xx_snowprecipstartdate1, xx_snowprecipstartdate2, |
I xx_snowprecipstartdate1, xx_snowprecipstartdate2, |
645 |
I xx_snowprecipperiod, 1, |
I xx_snowprecipperiod, 1, |
646 |
O xx_snowprecipstartdate, diffrec, startrec, endrec, |
O xx_snowprecipstartdate, diffrec, startrec, endrec, |
655 |
c-- |
c-- |
656 |
#ifdef ALLOW_APRESSURE_CONTROL |
#ifdef ALLOW_APRESSURE_CONTROL |
657 |
c-- Atmos. apressure |
c-- Atmos. apressure |
658 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_apressure_file, |
659 |
I xx_apressurestartdate1, xx_apressurestartdate2, |
I xx_apressurestartdate1, xx_apressurestartdate2, |
660 |
I xx_apressureperiod, 1, |
I xx_apressureperiod, 1, |
661 |
O xx_apressurestartdate, diffrec, startrec, endrec, |
O xx_apressurestartdate, diffrec, startrec, endrec, |
670 |
c-- |
c-- |
671 |
#ifdef ALLOW_RUNOFF_CONTROL |
#ifdef ALLOW_RUNOFF_CONTROL |
672 |
c-- Atmos. runoff |
c-- Atmos. runoff |
673 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_runoff_file, |
674 |
I xx_runoffstartdate1, xx_runoffstartdate2, xx_runoffperiod, 1, |
I xx_runoffstartdate1, xx_runoffstartdate2, xx_runoffperiod, 1, |
675 |
O xx_runoffstartdate, diffrec, startrec, endrec, |
O xx_runoffstartdate, diffrec, startrec, endrec, |
676 |
I mythid ) |
I mythid ) |
683 |
c-- |
c-- |
684 |
#ifdef ALLOW_SIAREA_CONTROL |
#ifdef ALLOW_SIAREA_CONTROL |
685 |
C-- so far there are no xx_siareastartdate1, etc., so we need to fudge it. |
C-- so far there are no xx_siareastartdate1, etc., so we need to fudge it. |
686 |
CML call ctrl_init_rec ( |
CML call ctrl_init_rec ( xx_siarea_file, |
687 |
CML I xx_siareastartdate1, xx_siareastartdate2, xx_siareaperiod, 1, |
CML I xx_siareastartdate1, xx_siareastartdate2, xx_siareaperiod, 1, |
688 |
CML O xx_siareastartdate, diffrec, startrec, endrec, |
CML O xx_siareastartdate, diffrec, startrec, endrec, |
689 |
CML I mythid ) |
CML I mythid ) |
699 |
c-- |
c-- |
700 |
#ifdef ALLOW_SIHEFF_CONTROL |
#ifdef ALLOW_SIHEFF_CONTROL |
701 |
C-- so far there are no xx_siheffstartdate1, etc., so we need to fudge it. |
C-- so far there are no xx_siheffstartdate1, etc., so we need to fudge it. |
702 |
CML call ctrl_init_rec ( |
CML call ctrl_init_rec ( xx_siheff_file, |
703 |
CML I xx_siheffstartdate1, xx_siheffstartdate2, xx_siheffperiod, 1, |
CML I xx_siheffstartdate1, xx_siheffstartdate2, xx_siheffperiod, 1, |
704 |
CML O xx_siheffstartdate, diffrec, startrec, endrec, |
CML O xx_siheffstartdate, diffrec, startrec, endrec, |
705 |
CML I mythid ) |
CML I mythid ) |
715 |
c-- |
c-- |
716 |
#ifdef ALLOW_SIHSNOW_CONTROL |
#ifdef ALLOW_SIHSNOW_CONTROL |
717 |
C-- so far there are no xx_sihsnowstartdate1, etc., so we need to fudge it. |
C-- so far there are no xx_sihsnowstartdate1, etc., so we need to fudge it. |
718 |
CML call ctrl_init_rec ( |
CML call ctrl_init_rec ( xx_sihsnow_file, |
719 |
CML I xx_sihsnowstartdate1, xx_sihsnowstartdate2, xx_sihsnowperiod, 1, |
CML I xx_sihsnowstartdate1, xx_sihsnowstartdate2, xx_sihsnowperiod, 1, |
720 |
CML O xx_sihsnowstartdate, diffrec, startrec, endrec, |
CML O xx_sihsnowstartdate, diffrec, startrec, endrec, |
721 |
CML I mythid ) |
CML I mythid ) |
741 |
|
|
742 |
#ifdef ALLOW_SHIFWFLX_CONTROL |
#ifdef ALLOW_SHIFWFLX_CONTROL |
743 |
c-- freshwater flux underneath ice-shelves |
c-- freshwater flux underneath ice-shelves |
744 |
call ctrl_init_rec ( |
call ctrl_init_rec ( xx_shifwflx_file, |
745 |
I xx_shifwflxstartdate1, xx_shifwflxstartdate2, |
I xx_shifwflxstartdate1, xx_shifwflxstartdate2, |
746 |
I xx_shifwflxperiod, 1, |
I xx_shifwflxperiod, 1, |
747 |
O xx_shifwflxstartdate, diffrec, startrec, endrec, |
O xx_shifwflxstartdate, diffrec, startrec, endrec, |
805 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
806 |
|
|
807 |
subroutine ctrl_init_rec( |
subroutine ctrl_init_rec( |
808 |
|
I fldname, |
809 |
I fldstartdate1, fldstartdate2, fldperiod, nfac, |
I fldstartdate1, fldstartdate2, fldperiod, nfac, |
810 |
O fldstartdate, diffrec, startrec, endrec, |
O fldstartdate, diffrec, startrec, endrec, |
811 |
I mythid ) |
I mythid ) |
839 |
c nfac : factor for the case that fld is an obcs variable |
c nfac : factor for the case that fld is an obcs variable |
840 |
c in this case nfac = 4, otherwise nfac = 1 |
c in this case nfac = 4, otherwise nfac = 1 |
841 |
c mythid : thread ID of this instance |
c mythid : thread ID of this instance |
842 |
|
character*(*) fldname |
843 |
integer fldstartdate1 |
integer fldstartdate1 |
844 |
integer fldstartdate2 |
integer fldstartdate2 |
845 |
_RL fldperiod |
_RL fldperiod |
862 |
integer difftime(4) |
integer difftime(4) |
863 |
_RL diffsecs |
_RL diffsecs |
864 |
#endif /* ALLOW_CAL */ |
#endif /* ALLOW_CAL */ |
865 |
|
character*(max_len_mbuf) msgbuf |
866 |
|
integer il |
867 |
|
|
868 |
|
c == functions == |
869 |
|
integer ilnblnk |
870 |
|
external ilnblnk |
871 |
|
|
872 |
|
if ( debugLevel .GE. debLevB ) then |
873 |
|
il=ilnblnk(fldname) |
874 |
|
WRITE( msgBuf,'(A,A)') |
875 |
|
& 'CTRL_INIT_REC: Getting record indices for ',fldname(1:il) |
876 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
877 |
|
& SQUEEZE_RIGHT , myThid ) |
878 |
|
endif |
879 |
|
|
880 |
c initialise some output |
c initialise some output |
881 |
do i = 1,4 |
do i = 1,4 |
882 |
fldstartdate(i) = 0 |
fldstartdate(i) = 0 |
884 |
startrec = 0 |
startrec = 0 |
885 |
endrec = 0 |
endrec = 0 |
886 |
diffrec = 0 |
diffrec = 0 |
|
# ifdef ALLOW_CAL |
|
|
call cal_FullDate( fldstartdate1, fldstartdate2, |
|
|
& fldstartdate , mythid ) |
|
|
call cal_TimePassed( fldstartdate, modelstartdate, |
|
|
& difftime, mythid ) |
|
|
call cal_ToSeconds ( difftime, diffsecs, mythid ) |
|
887 |
if ( fldperiod .EQ. -12. ) then |
if ( fldperiod .EQ. -12. ) then |
888 |
startrec = 1 |
startrec = 1 |
889 |
endrec = 12*nfac |
endrec = 12*nfac |
891 |
startrec = 1 |
startrec = 1 |
892 |
endrec = 1*nfac |
endrec = 1*nfac |
893 |
else |
else |
894 |
|
# ifdef ALLOW_CAL |
895 |
|
call cal_FullDate( fldstartdate1, fldstartdate2, |
896 |
|
& fldstartdate , mythid ) |
897 |
|
call cal_TimePassed( fldstartdate, modelstartdate, |
898 |
|
& difftime, mythid ) |
899 |
|
call cal_ToSeconds ( difftime, diffsecs, mythid ) |
900 |
startrec = int((modelstart + startTime - diffsecs)/ |
startrec = int((modelstart + startTime - diffsecs)/ |
901 |
& fldperiod) + 1 |
& fldperiod) + 1 |
902 |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
906 |
startrec = (startrec - 1)*nfac + 1 |
startrec = (startrec - 1)*nfac + 1 |
907 |
endrec = endrec*nfac |
endrec = endrec*nfac |
908 |
endif |
endif |
|
endif |
|
909 |
# else /* ndef ALLOW_CAL */ |
# else /* ndef ALLOW_CAL */ |
|
if ( fldperiod .EQ. 0. ) then |
|
|
startrec = 1 |
|
|
endrec = 1*nfac |
|
|
else |
|
910 |
startrec = 1 |
startrec = 1 |
911 |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
|
endif |
|
912 |
#endif /* ALLOW_CAL */ |
#endif /* ALLOW_CAL */ |
913 |
|
endif |
914 |
diffrec = endrec - startrec + 1 |
diffrec = endrec - startrec + 1 |
915 |
|
|
916 |
|
if ( debugLevel .GE. debLevB ) then |
917 |
|
WRITE( msgBuf,'(A,A,A)') |
918 |
|
& 'CTRL_INIT_REC: Record indices for ',fldname(1:il),':' |
919 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
920 |
|
& SQUEEZE_RIGHT , myThid ) |
921 |
|
WRITE( msgBuf,'(A,I10,A,I10)') |
922 |
|
& 'CTRL_INIT_REC: startrec = ',startrec,', endrec = ',endrec |
923 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
924 |
|
& SQUEEZE_RIGHT , myThid ) |
925 |
|
endif |
926 |
|
|
927 |
return |
return |
928 |
end |
end |