/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_init_varia.F

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

revision 1.1 by jmc, Tue Jan 16 04:38:34 2007 UTC revision 1.2 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 31  C     myThid ::  my Thread Id number Line 31  C     myThid ::  my Thread Id number
31        INTEGER myThid        INTEGER myThid
32  CEOP  CEOP
33    
34  #ifdef GAD_ALLOW_SOM_ADVECT  #ifdef GAD_ALLOW_TS_SOM_ADV
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36  C     === Local variables ===  C     === Local variables ===
37        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
# Line 72  C-     Read 2nd-O moments state from pic Line 72  C-     Read 2nd-O moments state from pic
72         ENDIF         ENDIF
73        ENDIF        ENDIF
74    
75  #endif /* GAD_ALLOW_SOM_ADVECT */  #endif /* GAD_ALLOW_TS_SOM_ADV */
76    
77        RETURN        RETURN
78        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22