789 |
& wtheta,wtheta2,wthetaLev, |
& wtheta,wtheta2,wthetaLev, |
790 |
& wsalt,wsalt2,wsaltLev, |
& wsalt,wsalt2,wsaltLev, |
791 |
& wsst,wsss, |
& wsst,wsss, |
792 |
& wtp,wers, |
& wtp,wers,wgfo, |
793 |
& wp, |
& wp, |
794 |
& wctdt,wctds, |
& wctdt,wctds, |
795 |
& wudrift,wvdrift, |
& wudrift,wvdrift, |
828 |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
829 |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
830 |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
831 |
|
_RL wgfo (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
832 |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
833 |
_RL wctdt ( nr,nsx,nsy) |
_RL wctdt ( nr,nsx,nsy) |
834 |
_RL wctds ( nr,nsx,nsy) |
_RL wctds ( nr,nsx,nsy) |
957 |
& tpmask, |
& tpmask, |
958 |
& ersobs, |
& ersobs, |
959 |
& ersmask, |
& ersmask, |
960 |
|
& gfoobs, |
961 |
|
& gfomask, |
962 |
& ctdtobs, |
& ctdtobs, |
963 |
& ctdsobs, |
& ctdsobs, |
964 |
& xbtobs, |
& xbtobs, |
989 |
_RL tpmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tpmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
990 |
_RL ersobs (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL ersobs (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
991 |
_RL ersmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL ersmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
992 |
|
_RL gfoobs (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
993 |
|
_RL gfomask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
994 |
_RL ctdtobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL ctdtobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
995 |
_RL ctdsobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL ctdsobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
996 |
_RL xbtobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL xbtobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
1036 |
& topexmeanfile, |
& topexmeanfile, |
1037 |
& topexfile, |
& topexfile, |
1038 |
& ersfile, |
& ersfile, |
1039 |
|
& gfofile, |
1040 |
& ctdtfile, |
& ctdtfile, |
1041 |
& ctdsfile, |
& ctdsfile, |
1042 |
& ctdtclimfile, |
& ctdtclimfile, |
1059 |
character*(MAX_LEN_FNAM) topexmeanfile |
character*(MAX_LEN_FNAM) topexmeanfile |
1060 |
character*(MAX_LEN_FNAM) topexfile |
character*(MAX_LEN_FNAM) topexfile |
1061 |
character*(MAX_LEN_FNAM) ersfile |
character*(MAX_LEN_FNAM) ersfile |
1062 |
|
character*(MAX_LEN_FNAM) gfofile |
1063 |
character*(MAX_LEN_FNAM) ctdtfile |
character*(MAX_LEN_FNAM) ctdtfile |
1064 |
character*(MAX_LEN_FNAM) ctdsfile |
character*(MAX_LEN_FNAM) ctdsfile |
1065 |
character*(MAX_LEN_FNAM) ctdtclimfile |
character*(MAX_LEN_FNAM) ctdtclimfile |
1081 |
|
|
1082 |
common /ecco_cost_data_flags/ |
common /ecco_cost_data_flags/ |
1083 |
& using_topex, |
& using_topex, |
1084 |
& using_ers |
& using_ers, |
1085 |
|
& using_gfo |
1086 |
logical using_topex |
logical using_topex |
1087 |
logical using_ers |
logical using_ers |
1088 |
|
logical using_gfo |
1089 |
|
|
1090 |
c Calendar information for the observations: |
c Calendar information for the observations: |
1091 |
c ========================================== |
c ========================================== |
1105 |
& tmistartdate, |
& tmistartdate, |
1106 |
& sssstartdate, |
& sssstartdate, |
1107 |
& topexstartdate, |
& topexstartdate, |
1108 |
& ersstartdate |
& ersstartdate, |
1109 |
|
& gfostartdate |
1110 |
integer scatxstartdate(4) |
integer scatxstartdate(4) |
1111 |
integer scatystartdate(4) |
integer scatystartdate(4) |
1112 |
integer sststartdate(4) |
integer sststartdate(4) |
1116 |
integer sssstartdate(4) |
integer sssstartdate(4) |
1117 |
integer topexstartdate(4) |
integer topexstartdate(4) |
1118 |
integer ersstartdate(4) |
integer ersstartdate(4) |
1119 |
|
integer gfostartdate(4) |
1120 |
|
|
1121 |
common /ecco_cost_data_aux_i/ |
common /ecco_cost_data_aux_i/ |
1122 |
& tmistartdate1, |
& tmistartdate1, |
1133 |
& topexstartdate2, |
& topexstartdate2, |
1134 |
& ersstartdate1, |
& ersstartdate1, |
1135 |
& ersstartdate2, |
& ersstartdate2, |
1136 |
|
& gfostartdate1, |
1137 |
|
& gfostartdate2, |
1138 |
& scatstartdate1, |
& scatstartdate1, |
1139 |
& scatstartdate2 |
& scatstartdate2 |
1140 |
|
|
1152 |
integer topexstartdate2 |
integer topexstartdate2 |
1153 |
integer ersstartdate1 |
integer ersstartdate1 |
1154 |
integer ersstartdate2 |
integer ersstartdate2 |
1155 |
|
integer gfostartdate1 |
1156 |
|
integer gfostartdate2 |
1157 |
integer scatstartdate1 |
integer scatstartdate1 |
1158 |
integer scatstartdate2 |
integer scatstartdate2 |
1159 |
|
|
1160 |
common /ecco_cost_data_times_r/ |
common /ecco_cost_data_times_r/ |
1161 |
& topexperiod, |
& topexperiod, |
1162 |
& ersperiod, |
& ersperiod, |
1163 |
|
& gfoperiod, |
1164 |
& scatperiod |
& scatperiod |
1165 |
_RL topexperiod |
_RL topexperiod |
1166 |
_RL ersperiod |
_RL ersperiod |
1167 |
|
_RL gfoperiod |
1168 |
_RL scatperiod |
_RL scatperiod |
1169 |
|
|
1170 |
c ================================================================== |
c ================================================================== |