/[MITgcm]/MITgcm/model/src/freeze.F
ViewVC logotype

Contents of /MITgcm/model/src/freeze.F

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

Revision 1.10 - (show annotations) (download)
Thu Nov 13 21:54:11 2003 UTC (20 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint52l_pre, hrcube4, hrcube5, checkpoint57b_post, checkpoint52d_pre, checkpoint56b_post, checkpoint52j_pre, checkpoint54d_post, checkpoint54e_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52f_post, checkpoint54f_post, checkpoint55i_post, checkpoint52i_pre, hrcube_2, hrcube_3, checkpoint55c_post, checkpoint52e_pre, checkpoint52e_post, checkpoint53d_post, checkpoint57a_post, checkpoint52b_pre, checkpoint54b_post, checkpoint52m_post, checkpoint55g_post, checkpoint52b_post, checkpoint52c_post, checkpoint52h_pre, hrcube_1, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint52i_post, checkpoint56a_post, checkpoint53f_post, checkpoint53b_pre, checkpoint52j_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint53b_post, checkpoint52a_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post
Branch point for: netcdf-sm0
Changes since 1.9: +13 -18 lines 
additional changes for FREEZE:
 - new S/R FREEZE_SURFACE only apllied to surface level.
 - add run-time parameter "useOldFreezing" to use the old version "FREEZE"
1 C $Header: $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: FREEZE
8 C !INTERFACE:
9 SUBROUTINE FREEZE( bi, bj, iMin, iMax, jMin, jMax,
10 I K,
11 I myThid )
12 C !DESCRIPTION: \bv
13 C *==========================================================*
14 C | S/R FREEZE
15 C | o Check water temperature and limit range of temperature
16 C | appropriately.
17 C *==========================================================*
18 C \ev
19
20 C !USES:
21 IMPLICIT NONE
22 C == Global variables ==
23 #include "SIZE.h"
24 #include "EEPARAMS.h"
25 #include "PARAMS.h"
26 #include "DYNVARS.h"
27
28 C !INPUT/OUTPUT PARAMETERS:
29 C == Routine Arguments ==
30 INTEGER bi,bj,iMin,iMax,jMin,jMax
31 INTEGER K
32 INTEGER myThid
33
34 C !LOCAL VARIABLES:
35 C == Local variables ==
36 C Tfreezing :: Freezing threshold temperature.
37 INTEGER i,j
38 _RL Tfreezing
39 CEOP
40
41 Tfreezing=-1.9
42
43 C Check for water that should have frozen
44 DO j=jMin,jMax
45 DO i=iMin,iMax
46 IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN
47 gT(i,j,k,bi,bj)=Tfreezing
48 ENDIF
49 ENDDO
50 ENDDO
51
52 RETURN
53 END
  ViewVC Help
Powered by ViewVC 1.1.22