/[MITgcm]/MITgcm/pkg/salt_plume/salt_plume_diagnostics_fill.F
ViewVC logotype

Diff of /MITgcm/pkg/salt_plume/salt_plume_diagnostics_fill.F

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

revision 1.1 by dimitri, Wed Nov 28 00:18:17 2007 UTC revision 1.2 by dimitri, Wed Nov 28 17:55:36 2007 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "SALT_PLUME_OPTIONS.h"  #include "SALT_PLUME_OPTIONS.h"
5    
6  CBOP 0  CBOP 0
7  C !ROUTINE: SALT_PLUME_DIAGNOSTICS_FILL  C     !ROUTINE: SALT_PLUME_DIAGNOSTICS_FILL
8    C     !INTERFACE:
 C !INTERFACE:  
9        SUBROUTINE SALT_PLUME_DIAGNOSTICS_FILL(        SUBROUTINE SALT_PLUME_DIAGNOSTICS_FILL(
10       I             bi, bj, myThid )       I             bi, bj, myThid )
11    
# Line 25  C     !INPUT PARAMETERS: Line 24  C     !INPUT PARAMETERS:
24        INTEGER myThid        INTEGER myThid
25  CEOP  CEOP
26    
27    #ifdef ALLOW_SALT_PLUME
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        _RL tmpFac        _RL tmpFac
31    
# Line 44  C-    net Salt plume flux into the ocean Line 45  C-    net Salt plume flux into the ocean
45        ENDIF        ENDIF
46  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
47    
48    #endif /* ALLOW_SALT_PLUME */
49    
50        RETURN        RETURN
51        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22