/[MITgcm]/MITgcm/pkg/frazil/frazil_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/frazil/frazil_init_fixed.F

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

revision 1.1 by dimitri, Fri Mar 2 01:45:23 2012 UTC revision 1.2 by dimitri, Sun Mar 4 23:11:20 2012 UTC
# Line 11  C !INTERFACE: Line 11  C !INTERFACE:
11        SUBROUTINE FRAZIL_INIT_FIXED( myThid )        SUBROUTINE FRAZIL_INIT_FIXED( myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize FRAZIL variables that are kept fixed during the run.  C     Initialize FRAZIL variables that are kept fixed during the run
15    
16  C     !USES:  C     !USES:
17        IMPLICIT NONE        IMPLICIT NONE
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
 #include "FRAZIL.h"  
21    
22  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
23  C     myThid ::  my Thread Id number  C     myThid :: my Thread Id number
24        INTEGER myThid        INTEGER myThid
25  CEOP  CEOP
26    
 C     !LOCAL VARIABLES:  
 C     === Local variables ===  
   
27  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
28        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
29          CALL FRAZIL_DIAGNOSTICS_INIT( myThid )          CALL FRAZIL_DIAGNOSTICS_INIT( myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22