C+ C NAME: C b3dn_param C PURPOSE: C Parameters for processing magnetic source surface files including closed field files C MODIFICATION HISTORY: C JUN-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C FEB-2015, Bernard Jackson (UCSD/CASS; bvjackson@ucsd.edu) C- integer B3D__N ! # different magnetic data parameter (B3D__N = 6) !------- ! 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','nso_noar','nso_noat','nso_noap'/ !------- ! Strings used as prefix to output file names ! (used in Write3D_bb) character B3D__PREFIX(B3D__N)*4 /'wsoo', 'wson','nson','nsor','nsot','nsop'/ !------- ! 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) integer B3D__NSO_NOAR parameter (B3D__NSO_NOAR = 4) integer B3D__NSO_NOAT parameter (B3D__NSO_NOAT = 5) integer B3D__NSO_NOAP parameter (B3D__NSO_NOAP = 6)