| 1 | ;------------------------------------------------------------ |
|---|
| 2 | ;------------------------------------------------------------ |
|---|
| 3 | ;------------------------------------------------------------ |
|---|
| 4 | ; |
|---|
| 5 | ; NAME: init_path2.pro |
|---|
| 6 | ; |
|---|
| 7 | ; PURPOSE: File Path required for INTERP2 |
|---|
| 8 | ; |
|---|
| 9 | ; CATEGORY : Namelist |
|---|
| 10 | ; |
|---|
| 11 | ; CALLING SEQUENCE : @init_path2 |
|---|
| 12 | ; |
|---|
| 13 | ; COMMON BLOCKS: |
|---|
| 14 | ; None |
|---|
| 15 | ; |
|---|
| 16 | ; SIDE EFFECTS: |
|---|
| 17 | ; |
|---|
| 18 | ; RESTRICTIONS: |
|---|
| 19 | ; |
|---|
| 20 | ; EXAMPLE: |
|---|
| 21 | ; |
|---|
| 22 | ; MODIFICATION HISTORY: 08/2002 Robinson Hordoir |
|---|
| 23 | ; |
|---|
| 24 | ;------------------------------------------------------------ |
|---|
| 25 | ;------------------------------------------------------------ |
|---|
| 26 | |
|---|
| 27 | |
|---|
| 28 | ;--------------------------------------------------- |
|---|
| 29 | ; INTERP2 : PATH INITIALISATIONS * |
|---|
| 30 | ;--------------------------------------------------- |
|---|
| 31 | ; |
|---|
| 32 | ; 1. Directories |
|---|
| 33 | ; ============== |
|---|
| 34 | ; |
|---|
| 35 | |
|---|
| 36 | input_dir = '/usr/work/sur/fvi/OPA/ORCA2' |
|---|
| 37 | output_dir = '/usr/work/sur/fvi/OPA/ORCA2' |
|---|
| 38 | |
|---|
| 39 | ; |
|---|
| 40 | ; 2. Input information |
|---|
| 41 | ; ==================== |
|---|
| 42 | ; |
|---|
| 43 | ; 2.1. Data file name |
|---|
| 44 | ; ------------------- |
|---|
| 45 | ; |
|---|
| 46 | |
|---|
| 47 | |
|---|
| 48 | datafile = 'ForcageMOED_5d_1993_grid_T.nc' |
|---|
| 49 | outputfile = 'ForcMOED_Sigma_1993_reg.nc' |
|---|
| 50 | |
|---|
| 51 | ; datafile = 'DivBustar_5d_1993_grid_T.nc' |
|---|
| 52 | ; outputfile = 'DivBustar_5d_1993_reg.nc' |
|---|
| 53 | ; datafile = 'Sigma_5d_1998_grid_T.nc' |
|---|
| 54 | ; outputfile = 'Sigma_5d_1998_reg.nc' |
|---|
| 55 | ; |
|---|
| 56 | ; 2.2. Input ORCA Meshmask file name |
|---|
| 57 | ; ------------------------ |
|---|
| 58 | ; |
|---|
| 59 | |
|---|
| 60 | inputmesh = 'meshmask_bab.nc' |
|---|
| 61 | |
|---|
| 62 | ; |
|---|
| 63 | ; 3. Output information |
|---|
| 64 | ; ===================== |
|---|
| 65 | ; |
|---|
| 66 | ; 3.1. Output geogrid meshmask (please print the name you want to |
|---|
| 67 | ; give to this file, even if you do not have it yet) |
|---|
| 68 | ; ---------------------------- |
|---|
| 69 | ; |
|---|
| 70 | outputgrid = 'mask_reg.nc' |
|---|
| 71 | |
|---|
| 72 | ; 3.2. Weight file required for interpolation (please print the name you want to |
|---|
| 73 | ; give to this file, even if you do not have it yet) |
|---|
| 74 | ; ---------------------------- |
|---|
| 75 | ; |
|---|
| 76 | weightfile = 'weight_ORCA2_grid_T.nc' |
|---|
| 77 | |
|---|
| 78 | |
|---|
| 79 | ; |
|---|
| 80 | ; 3.3. Output file name |
|---|
| 81 | ; --------------------- |
|---|
| 82 | ; |
|---|
| 83 | ;;;; outputfile = 'DivBustar_5d_1998_reg.nc' |
|---|
| 84 | |
|---|
| 85 | |
|---|
| 86 | ; |
|---|
| 87 | ; 3.4 Error file in weight calculation |
|---|
| 88 | ; ------------------------------------- |
|---|
| 89 | ; |
|---|
| 90 | |
|---|
| 91 | errorfile='error_wT' |
|---|
| 92 | |
|---|
| 93 | ;*************** END OF USER'S PART ******************* |
|---|
| 94 | ;********DO NOT MODIFY ANYTHING BELLOW THIS LINE******* |
|---|
| 95 | ;****************************************************** |
|---|
| 96 | |
|---|
| 97 | |
|---|
| 98 | datafile = string(input_dir,'/',datafile) |
|---|
| 99 | inputmesh = string(input_dir,'/',inputmesh) |
|---|
| 100 | outputgrid = string(output_dir,'/',outputgrid) |
|---|
| 101 | weightfile = string(output_dir,'/',weightfile) |
|---|
| 102 | outputfile = string(output_dir,'/',outputfile) |
|---|
| 103 | errorfile = string(output_dir,'/',errorfile) |
|---|
| 104 | |
|---|
| 105 | |
|---|
| 106 | ;***************************************************** |
|---|
| 107 | |
|---|
