/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by molod, Mon May 16 23:41:32 2005 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
21  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
22    #ifdef ALLOW_FIZHI
23    #include "PARAMS.h"
24    #endif
25    
26  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
27        INTEGER myThid        INTEGER myThid
# Line 32  C--   Set number of levels for all avail Line 35  C--   Set number of levels for all avail
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    #ifdef ALLOW_FIZHI
39          if( useFIZHI) then
40          call fizhi_diagalarms(19000101,0,myThid)
41          endif
42    #endif
43    
44        RETURN        RETURN
45        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22