35 |
C-- Calculate pointers for diagnostics set to non-zero frequency |
C-- Calculate pointers for diagnostics set to non-zero frequency |
36 |
CALL DIAGNOSTICS_SET_POINTERS( myThid ) |
CALL DIAGNOSTICS_SET_POINTERS( myThid ) |
37 |
|
|
38 |
|
C-- Calculate pointers for statistics-diags set to non-zero frequency |
39 |
|
CALL DIAGSTATS_SET_POINTERS( myThid ) |
40 |
|
|
41 |
#ifdef ALLOW_FIZHI |
#ifdef ALLOW_FIZHI |
42 |
if( useFIZHI) then |
if( useFIZHI) then |
43 |
call fizhi_diagalarms(19000101,0,myThid) |
call fizhi_diagalarms(19000101,0,myThid) |