c For character-by-character input of GTSPP files in MEDS-ASCII format. integer NOS_MAX,NSEG_MAX,NDP_MAX parameter (NOS_MAX=100,NSEG_MAX=30,NDP_MAX=1500) character*1 Stream_source,Uflag,Q_Pos,Q_Date_Time,Q_Record, & Data_Avail,Dup_flag(NSEG_MAX),Digit_Code(NSEG_MAX), & Standard(NSEG_MAX),Q_Parm(NSEG_MAX),SRFC_Q_Parm(NSEG_MAX), & D_P_Code(NSEG_MAX),Depres_Q(NSEG_MAX,NDP_MAX), & Prof_Q_Parm(NSEG_MAX,NDP_MAX) character*2 Obs_Month,Obs_day,Data_Type,A_No_Prof,A_Nparms,A_Nsurfc, & A_No_Seg(NSEG_MAX),Ident_Code(NOS_MAX),Act_Code(NOS_MAX), & Profile_Seg(NSEG_MAX) character*3 A_Num_Hists character*4 Obs_Year,Obs_Time,Source_ID,Stream_Ident,QC_Version, & Prof_Type(NSEG_MAX),Pcode(NSEG_MAX),SRFC_Code(NSEG_MAX), & PRC_Code(NOS_MAX),Version(NOS_MAX),Act_Parm(NOS_MAX), & Profile_Type(NSEG_MAX),A_No_depths(NSEG_MAX) character*5 Deep_Depth(NSEG_MAX) character*6 Bul_Header,A_Depth_Press(NSEG_MAX,NDP_MAX) character*8 MKy,One_deg_sq,MEDS_Sta,A_Latitude,Up_Date, & PRC_Date(NOS_MAX),Aux_ID(NOS_MAX) character*9 A_Longitude,A_Prof_Parm(NSEG_MAX,NDP_MAX) character*10 Cruise_ID,Parm(NSEG_MAX),SRFC_Parm(NSEG_MAX), & Previous_Val(NOS_MAX) character*12 Iumsgno,Bul_time integer nos_seg,No_Prof,Nparms,Nsurfc,Num_Hists integer No_Depths(NSEG_MAX),No_Seg(NSEG_MAX) real Latitude,Longitude,Depth_Press(NSEG_MAX,NDP_MAX) real Prof_Parm(NSEG_MAX,NDP_MAX) common / ocean_nos / Nos_Seg common / oceanstn / & Latitude, Longitude, & No_Prof, NParms, Nsurfc, Num_Hists, No_Seg, & Parm, Aux_ID, Previous_Val, & One_Deg_Sq, PRC_Date, MEDS_Sta, & Deep_Depth, & Cruise_ID, Obs_Year, Obs_Month, Obs_Day, Obs_Time,Data_Type, & Q_Pos, Q_Date_Time, Q_Record, Up_date, Bul_Time, Bul_Header, & Source_ID, Stream_Ident, QC_Version, Data_Avail, & Prof_Type, Dup_Flag, Digit_Code, & Standard, Pcode, Q_Parm, & SRFC_Code, SRFC_Parm, & SRFC_Q_Parm,Ident_Code, & PRC_Code, Version, Act_Code, & Act_Parm common / oceanprf / & Depth_Press, Prof_parm, & No_Depths, Profile_Type, & Profile_Seg, D_P_Code, & Prof_Q_Parm, Depres_Q common /extras / Mky,Iumsgno,Stream_Source,Uflag common /extras2 / A_Latitude,A_Longitude,A_Num_Hists,A_No_Prof, & A_Nparms,A_Nsurfc,A_No_Seg,A_No_Depths,A_Depth_Press, & A_Prof_Parm c MEDS Character Format 2/4/93 c c Master Record c c Field Field Starting c Name Size Position c Mky char*08 01 c One_deg_sq char*08 09 c Cruise_ID char*10 17 c Obs_Year char*04 27 c Obs_Month char*02 31 c Obs_Day char*02 33 c Obs_Time char*04 35 c Data_Type char*02 39 c Iumsgno char*12 41 c Stream_Source char*01 53 c Uflag char*01 54 c MEDS_Sta char*08 55 c Latitude char*08 63 c Longitude char*09 71 c Q_Pos char*01 80 c Q_Date_Time char*01 81 c Q_Record char*01 82 c Up_Date char*08 83 c Bul_Time char*12 91 c Bul_Header char*06 103 c Source_ID char*04 109 c Stream_Ident char*04 113 c QC_Version char*04 117 c Data_Avail char*01 121 c No_Prof char*02 122 c Nparms char*02 124 c Nsurfc char*02 126 c Num_Hists char*03 128 c Profile Information; repeats No_prof (1-30) times c No_Seg char*02 01 c Prof_Type char*04 03 c Dup_flag char*01 07 c Digit_Code char*01 08 c Standard char*01 09 c Deep_Depth char*05 10 c Surface Parameter Group; repeats Nparms (0-30) times c Pcode char*04 01 c Parm char*10 05 c Q_Parm char*01 15 c Surface Codes Group; repeats Nsurfc (0-30) times c SRFC_Code char*04 01 c SRFC_Parm char*10 05 c SRFC_Q_Parm char*01 15 c History Group; repeats Num_Hists (0-100) times c Ident_Code char*02 01 c PRC_Code char*04 03 c Version char*04 07 c PRC_Date char*08 11 c Act_Code char*02 19 c Act_Parm char*04 21 c Aux_ID char*08 25 c Previous_Val char*10 33 c Profile Record c Mky char*08 01 c One_Deg_Sq char*08 09 c Cruise_ID char*10 17 c Obs_Year char*04 27 c Obs_Month char*02 31 c Obs_Day char*02 33 c Obs_time char*04 35 c Data_Type char*02 39 c Iumsgno char*12 41 c Profile_Type char*04 53 c Profile_Seg char*02 57 c No_Depths char*04 59 c D_P_Code char*01 63 c Parameter Group; occurs No_Depth (1-1500) times c Depth_Press char*06 01 c Depres_Q char*01 07 c Prof_Parm char*09 08 c Prof_Q_Parm char*01 17 c SRFC_CODE = DBID c SRFC_PARM = Station_num (NODC Unique Identifier) c SRFC_CODE = GCLL c SRFC_PARM = the value or the Callsign (Delayed mode data only) c SRFC_CODE = PLAT c SRFC_PARM = the value of the Shipcode