/[MITgcm]/MITgcm/pkg/shelfice/shelfice_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_init_fixed.F

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

revision 1.6 by mlosch, Tue May 10 07:49:19 2011 UTC revision 1.7 by mlosch, Fri May 13 19:41:03 2011 UTC
# Line 39  C     I,J,K,bi,bj - Loop counters Line 39  C     I,J,K,bi,bj - Loop counters
39        CHARACTER*16  diagUnits        CHARACTER*16  diagUnits
40        CHARACTER*(80) diagTitle        CHARACTER*(80) diagTitle
41  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
42  #ifdef ALLOW_COST  #if  (defined (ALLOW_SHIFWFLX_COST_CONTRIBUTION) && \
43          defined (ALLOW_SHIFWFLX_CONTROL))
44        _RL dummy        _RL dummy
45  #endif  #endif
46    
# Line 71  C--------------------------------------- Line 72  C---------------------------------------
72         ENDDO         ENDDO
73        ENDDO        ENDDO
74  #ifdef ALLOW_COST  #ifdef ALLOW_COST
75  #if  (defined (ALLOW_SHIFWFLX_COST_CONTRIBUTION) || \  #if  (defined (ALLOW_SHIFWFLX_COST_CONTRIBUTION) && \
76        defined (ALLOW_SHIFWFLX_CONTROL))        defined (ALLOW_SHIFWFLX_CONTROL))
77        IF ( shifwflx_errfile .NE. ' ' ) THEN        IF ( shifwflx_errfile .NE. ' ' ) THEN
78         CALL READ_REC_XY_RL( shifwflx_errfile, wshifwflx, 1, 0, myThid )         CALL READ_REC_XY_RL( shifwflx_errfile, wshifwflx, 1, 0, myThid )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22