/[MITgcm]/MITgcm/pkg/therm_seaice/ice_freeze.F
ViewVC logotype

Diff of /MITgcm/pkg/therm_seaice/ice_freeze.F

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

revision 1.1 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.2 by jmc, Sun Jul 13 21:34:19 2003 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  C     !ROUTINE: ICE_FREEZE  C     !ROUTINE: ICE_FREEZE
# Line 22  C     == Global variables == Line 25  C     == Global variables ==
25  #include "GRID.h"  #include "GRID.h"
26  #include "FFIELDS.h"  #include "FFIELDS.h"
27  #include "ICE.h"  #include "ICE.h"
28    #ifdef ALLOW_BULK_FORCE
29  #include "BULKF_ICE_CONSTANTS.h"  #include "BULKF_ICE_CONSTANTS.h"
30  #include "BULKF.h"  #include "BULKF.h"
31    #endif
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     == Routine Arguments ==  C     == Routine Arguments ==
35        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
36        INTEGER myThid        INTEGER myThid
37    
38    #ifdef ALLOW_THERM_SEAICE
39    
40  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
41  C     == Local variables ==  C     == Local variables ==
42  C     Tfreezing :: Freezing threshold temperature.  C     Tfreezing :: Freezing threshold temperature.
# Line 69  c Freshwater flux: Line 76  c Freshwater flux:
76          ENDDO          ENDDO
77         ENDDO         ENDDO
78    
79    #endif /* ALLOW_THERM_SEAICE */
80    
81        RETURN        RETURN
82        END        END
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22