129 |
& xx_diffkr_file, |
& xx_diffkr_file, |
130 |
& xx_kapgm_file, |
& xx_kapgm_file, |
131 |
& xx_tr1_file, |
& xx_tr1_file, |
132 |
|
& xx_sst_file, |
133 |
|
& xx_sss_file, |
134 |
|
& xx_hfacc_file, |
135 |
& xx_efluxy_file, |
& xx_efluxy_file, |
136 |
& xx_efluxp_file |
& xx_efluxp_file, |
137 |
|
& xx_bottomdrag_file |
138 |
|
|
139 |
namelist /ctrl_packnames/ |
namelist /ctrl_packnames/ |
140 |
& yadmark, yctrlid, |
& yadmark, yctrlid, |
205 |
xx_diffkr_file = ' ' |
xx_diffkr_file = ' ' |
206 |
xx_kapgm_file = ' ' |
xx_kapgm_file = ' ' |
207 |
xx_tr1_file = ' ' |
xx_tr1_file = ' ' |
208 |
|
xx_sst_file = ' ' |
209 |
|
xx_sss_file = ' ' |
210 |
|
xx_hfacc_file = ' ' |
211 |
xx_efluxy_file = ' ' |
xx_efluxy_file = ' ' |
212 |
xx_efluxp_file = ' ' |
xx_efluxp_file = ' ' |
213 |
|
xx_bottomdrag_file = ' ' |
214 |
|
|
215 |
yadmark = 'ad' |
yadmark = 'ad' |
216 |
yctrlid = 'MIT_CE_000' |
yctrlid = 'MIT_CE_000' |
217 |
ctrlname = ' ' |
ctrlname = ' ' |
345 |
cph index 17 reserved for passive tracer TR1 |
cph index 17 reserved for passive tracer TR1 |
346 |
cph index 18,19 reserved for sst, sss |
cph index 18,19 reserved for sst, sss |
347 |
cph index 20 for hFacC |
cph index 20 for hFacC |
348 |
cph index 21,22 for efluxy, efluxp |
cph index 21-22 for efluxy, efluxp |
349 |
|
cph index 23-24 for bottom drag |
350 |
cph) |
cph) |
351 |
|
|
352 |
|
c------------------------------------------------------------------------------------------- |
353 |
|
c-- |
354 |
#ifdef ALLOW_THETA0_CONTROL |
#ifdef ALLOW_THETA0_CONTROL |
355 |
c-- Initial state temperature contribution. |
c-- Initial state temperature contribution. |
356 |
|
|
366 |
|
|
367 |
#endif /* ALLOW_THETA0_CONTROL */ |
#endif /* ALLOW_THETA0_CONTROL */ |
368 |
|
|
369 |
|
c------------------------------------------------------------------------------------------- |
370 |
|
c-- |
371 |
#ifdef ALLOW_SALT0_CONTROL |
#ifdef ALLOW_SALT0_CONTROL |
372 |
c-- Initial state salinity contribution. |
c-- Initial state salinity contribution. |
373 |
|
|
387 |
c-- Surface flux contributions. |
c-- Surface flux contributions. |
388 |
c-- =========================== |
c-- =========================== |
389 |
|
|
390 |
|
c------------------------------------------------------------------------------------------- |
391 |
|
c-- |
392 |
#if (defined (ALLOW_HFLUX_CONTROL)) |
#if (defined (ALLOW_HFLUX_CONTROL)) |
393 |
c-- Heat flux. |
c-- Heat flux. |
394 |
|
|
456 |
|
|
457 |
#endif /* ALLOW_HFLUX_CONTROL */ |
#endif /* ALLOW_HFLUX_CONTROL */ |
458 |
|
|
459 |
|
c------------------------------------------------------------------------------------------- |
460 |
|
c-- |
461 |
#if (defined (ALLOW_SFLUX_CONTROL)) |
#if (defined (ALLOW_SFLUX_CONTROL)) |
462 |
c-- Salt flux. |
c-- Salt flux. |
463 |
|
|
525 |
|
|
526 |
#endif /* ALLOW_SFLUX_CONTROL */ |
#endif /* ALLOW_SFLUX_CONTROL */ |
527 |
|
|
528 |
|
c------------------------------------------------------------------------------------------- |
529 |
|
c-- |
530 |
#if (defined (ALLOW_USTRESS_CONTROL)) |
#if (defined (ALLOW_USTRESS_CONTROL)) |
531 |
c-- Zonal wind stress. |
c-- Zonal wind stress. |
532 |
|
|
594 |
|
|
595 |
#endif /* ALLOW_USTRESS_CONTROL */ |
#endif /* ALLOW_USTRESS_CONTROL */ |
596 |
|
|
597 |
|
c------------------------------------------------------------------------------------------- |
598 |
|
c-- |
599 |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
600 |
c-- Meridional wind stress. |
c-- Meridional wind stress. |
601 |
|
|
663 |
|
|
664 |
#endif /* ALLOW_VSTRESS_CONTROL */ |
#endif /* ALLOW_VSTRESS_CONTROL */ |
665 |
|
|
666 |
|
c------------------------------------------------------------------------------------------- |
667 |
|
c-- |
668 |
#ifdef ALLOW_OBCSN_CONTROL |
#ifdef ALLOW_OBCSN_CONTROL |
669 |
c-- Northern obc. |
c-- Northern obc. |
670 |
|
|
698 |
c-- Southern obc. |
c-- Southern obc. |
699 |
|
|
700 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
701 |
|
c------------------------------------------------------------------------------------------- |
702 |
|
c-- |
703 |
#ifdef ALLOW_CALENDAR |
#ifdef ALLOW_CALENDAR |
704 |
call cal_TimePassed( xx_obcssstartdate, modelstartdate, |
call cal_TimePassed( xx_obcssstartdate, modelstartdate, |
705 |
& difftime, mythid ) |
& difftime, mythid ) |
725 |
|
|
726 |
#endif /* ALLOW_OBCSS_CONTROL */ |
#endif /* ALLOW_OBCSS_CONTROL */ |
727 |
|
|
728 |
|
c------------------------------------------------------------------------------------------- |
729 |
|
c-- |
730 |
#ifdef ALLOW_OBCSW_CONTROL |
#ifdef ALLOW_OBCSW_CONTROL |
731 |
c-- Western obc. |
c-- Western obc. |
732 |
|
|
756 |
|
|
757 |
#endif /* ALLOW_OBCSW_CONTROL */ |
#endif /* ALLOW_OBCSW_CONTROL */ |
758 |
|
|
759 |
|
c------------------------------------------------------------------------------------------- |
760 |
|
c-- |
761 |
#ifdef ALLOW_OBCSE_CONTROL |
#ifdef ALLOW_OBCSE_CONTROL |
762 |
c-- Eastern obc. |
c-- Eastern obc. |
763 |
|
|
787 |
|
|
788 |
#endif /* ALLOW_OBCSE_CONTROL */ |
#endif /* ALLOW_OBCSE_CONTROL */ |
789 |
|
|
790 |
|
c------------------------------------------------------------------------------------------- |
791 |
|
c-- |
792 |
#ifdef ALLOW_DIFFKR_CONTROL |
#ifdef ALLOW_DIFFKR_CONTROL |
793 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
794 |
ivarindex = 15 |
ivarindex = 15 |
801 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
802 |
#endif /* ALLOW_DIFFKR_CONTROL */ |
#endif /* ALLOW_DIFFKR_CONTROL */ |
803 |
|
|
804 |
|
c------------------------------------------------------------------------------------------- |
805 |
|
c-- |
806 |
#ifdef ALLOW_KAPGM_CONTROL |
#ifdef ALLOW_KAPGM_CONTROL |
807 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
808 |
ivarindex = 16 |
ivarindex = 16 |
815 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
816 |
#endif /* ALLOW_KAPGM_CONTROL */ |
#endif /* ALLOW_KAPGM_CONTROL */ |
817 |
|
|
818 |
|
c------------------------------------------------------------------------------------------- |
819 |
|
c-- |
820 |
#ifdef ALLOW_TR10_CONTROL |
#ifdef ALLOW_TR10_CONTROL |
821 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
822 |
ivarindex = 17 |
ivarindex = 17 |
829 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
830 |
#endif /* ALLOW_TR10_CONTROL */ |
#endif /* ALLOW_TR10_CONTROL */ |
831 |
|
|
832 |
|
c------------------------------------------------------------------------------------------- |
833 |
|
c-- |
834 |
|
#ifdef ALLOW_SST0_CONTROL |
835 |
|
_BEGIN_MASTER( mythid ) |
836 |
|
ivarindex = 18 |
837 |
|
ncvarindex(ivarindex) = 118 |
838 |
|
ncvarrecs (ivarindex) = 1 |
839 |
|
ncvarxmax (ivarindex) = snx |
840 |
|
ncvarymax (ivarindex) = sny |
841 |
|
ncvarnrmax(ivarindex) = 1 |
842 |
|
ncvargrd (ivarindex) = 'c' |
843 |
|
_END_MASTER( mythid ) |
844 |
|
#endif /* ALLOW_SST0_CONTROL */ |
845 |
|
|
846 |
|
c------------------------------------------------------------------------------------------- |
847 |
|
c-- |
848 |
|
#ifdef ALLOW_SSS0_CONTROL |
849 |
|
_BEGIN_MASTER( mythid ) |
850 |
|
ivarindex = 19 |
851 |
|
ncvarindex(ivarindex) = 119 |
852 |
|
ncvarrecs (ivarindex) = 1 |
853 |
|
ncvarxmax (ivarindex) = snx |
854 |
|
ncvarymax (ivarindex) = sny |
855 |
|
ncvarnrmax(ivarindex) = 1 |
856 |
|
ncvargrd (ivarindex) = 'c' |
857 |
|
_END_MASTER( mythid ) |
858 |
|
#endif /* ALLOW_SSS0_CONTROL */ |
859 |
|
|
860 |
|
c------------------------------------------------------------------------------------------- |
861 |
|
c-- |
862 |
|
#ifdef ALLOW_HFACC_CONTROL |
863 |
|
_BEGIN_MASTER( mythid ) |
864 |
|
ivarindex = 20 |
865 |
|
ncvarindex(ivarindex) = 120 |
866 |
|
ncvarrecs (ivarindex) = 1 |
867 |
|
ncvarxmax (ivarindex) = snx |
868 |
|
ncvarymax (ivarindex) = sny |
869 |
|
ncvargrd (ivarindex) = 'c' |
870 |
|
#ifdef ALLOW_HFACC3D_CONTROL |
871 |
|
ncvarnrmax(ivarindex) = nr |
872 |
|
#else |
873 |
|
ncvarnrmax(ivarindex) = 1 |
874 |
|
#endif /*ALLOW_HFACC3D_CONTROL*/ |
875 |
|
_END_MASTER( mythid ) |
876 |
|
#endif /* ALLOW_HFACC_CONTROL */ |
877 |
|
|
878 |
|
c------------------------------------------------------------------------------------------- |
879 |
|
c-- |
880 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |
881 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
882 |
ivarindex = 21 |
ivarindex = 21 |
889 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
890 |
#endif /* ALLOW_EFLUXY0_CONTROL */ |
#endif /* ALLOW_EFLUXY0_CONTROL */ |
891 |
|
|
892 |
|
c------------------------------------------------------------------------------------------- |
893 |
|
c-- |
894 |
#ifdef ALLOW_EFLUXP0_CONTROL |
#ifdef ALLOW_EFLUXP0_CONTROL |
895 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
896 |
ivarindex = 22 |
ivarindex = 22 |
903 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
904 |
#endif /* ALLOW_EFLUXP0_CONTROL */ |
#endif /* ALLOW_EFLUXP0_CONTROL */ |
905 |
|
|
906 |
|
c------------------------------------------------------------------------------------------- |
907 |
|
c-- |
908 |
|
#ifdef ALLOW_BOTTOMDRAG_CONTROL |
909 |
|
_BEGIN_MASTER( mythid ) |
910 |
|
ivarindex = 23 |
911 |
|
ncvarindex(ivarindex) = 123 |
912 |
|
ncvarrecs (ivarindex) = 1 |
913 |
|
ncvarxmax (ivarindex) = snx |
914 |
|
ncvarymax (ivarindex) = sny |
915 |
|
ncvarnrmax(ivarindex) = 1 |
916 |
|
ncvargrd (ivarindex) = 'c' |
917 |
|
_END_MASTER( mythid ) |
918 |
|
#endif /* ALLOW_BOTTOMDRAG_CONTROL */ |
919 |
|
|
920 |
|
c------------------------------------------------------------------------------------------- |
921 |
|
c------------------------------------------------------------------------------------------- |
922 |
|
c------------------------------------------------------------------------------------------- |
923 |
|
|
924 |
c-- Determine the number of wet points in each tile: |
c-- Determine the number of wet points in each tile: |
925 |
c-- maskc, masks, and maskw. |
c-- maskc, masks, and maskw. |
926 |
|
|