73 |
|
|
74 |
C This routine has been called by the main model so we set our |
C This routine has been called by the main model so we set our |
75 |
C internal flag to indicate we are in business |
C internal flag to indicate we are in business |
76 |
PTRACERSisON=.TRUE. |
c PTRACERSisON=.TRUE. |
77 |
|
C Note(jmc): remove this flag which is not really usefull (not set properly |
78 |
|
C when usePTRACERS=F and always TRUE otherwise); |
79 |
|
C much better to use "usePTRACERS" flag instead. |
80 |
|
|
81 |
C Set ptracer IO & diagnostics labels (2 characters long) |
C Set ptracer IO & diagnostics labels (2 characters long) |
82 |
CALL PTRACERS_SET_IOLABEL( |
CALL PTRACERS_SET_IOLABEL( |