--- MITgcm/model/src/packages_init_fixed.F 2005/05/05 16:41:53 1.38 +++ MITgcm/model/src/packages_init_fixed.F 2005/05/31 18:24:28 1.39 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/packages_init_fixed.F,v 1.38 2005/05/05 16:41:53 dimitri Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/packages_init_fixed.F,v 1.39 2005/05/31 18:24:28 adcroft Exp $ C $Name: $ #include "PACKAGES_CONFIG.h" @@ -19,6 +19,8 @@ C !CALLING SEQUENCE: C PACKAGES_INIT_FIXED C | +C |-- RUNCLOCK_INIT +C | C |-- DIAGNOSTICS_INIT_EARLY C |-- DIAGNOSTICS_MAIN_INIT C | @@ -81,6 +83,12 @@ INTEGER myThid CEOP +#ifdef ALLOW_RUNCLOCK + IF ( useRunClock ) THEN + CALL RUNCLOCK_INIT( myThid ) + ENDIF +#endif + #ifdef ALLOW_DIAGNOSTICS IF ( useDiagnostics ) THEN CALL DIAGNOSTICS_INIT_EARLY( myThid )