C+ C NAME: C b3d_param C PURPOSE: C Parameters for processing magnetic source surface files C MODIFICATION HISTORY: C JUN-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- integer B3D__N ! # different magnetic data parameter (B3D__N = 3) !------- ! Strings used to identify magnetic data from command line arguments ! (used in BField_Choose) character B3D__STRCMD(B3D__N)*8 /'wso', 'wso_noaa','nso_noaa'/ !------- ! Strings used as prefix to output file names ! (used in Write3D_bb) character B3D__PREFIX(B3D__N)*4 /'wsoo', 'wson','nson'/ !------- ! Numbers should run from 1 to B3D__N ! (used in BField_Get) integer B3D__WSO parameter (B3D__WSO = 1) integer B3D__WSO_NOAA parameter (B3D__WSO_NOAA = 2) integer B3D__NSO_NOAA parameter (B3D__NSO_NOAA = 3)