/[MITgcm]/MITgcm/verification/hs94.cs-32x32x5/code/ini_theta.F
ViewVC logotype

Contents of /MITgcm/verification/hs94.cs-32x32x5/code/ini_theta.F

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


Revision 1.5 - (show annotations) (download)
Mon Jul 19 15:13:07 2004 UTC (19 years, 8 months ago) by molod
Branch: MAIN
CVS Tags: checkpoint57g_pre, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint54d_post, checkpoint54e_post, checkpoint57d_post, checkpoint55, checkpoint57, checkpoint56, checkpoint54f_post, checkpoint55i_post, checkpoint55c_post, checkpoint57f_post, checkpoint57a_post, checkpoint55g_post, checkpoint57c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint55f_post, eckpoint57e_pre, checkpoint56a_post, checkpoint57f_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint55e_post
Changes since 1.4: +4 -2 lines
Change argument list to port_rand - change call sequence everywhere

1 C $Header: /u/u3/gcmpack/MITgcm/verification/hs94.cs-32x32x5/code/ini_theta.F,v 1.4 2001/07/06 22:13:37 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CStartOfInterface
7 SUBROUTINE INI_THETA( myThid )
8 C /==========================================================\
9 C | SUBROUTINE INI_THETA |
10 C | o Set model initial temperature field. |
11 C |==========================================================|
12 C | There are several options for setting the initial |
13 C | temperature file |
14 C | 1. Inline code |
15 C | 2. Vertical profile ( uniform T in X and Y ) |
16 C | 3. Three-dimensional data from a file. For example from |
17 C | Levitus or from a checkpoint file from a previous |
18 C | integration. |
19 C | In addition to setting the temperature field we also |
20 C | set the initial temperature tendency term here. |
21 C \==========================================================/
22 IMPLICIT NONE
23
24 C === Global variables ===
25 #include "SIZE.h"
26 #include "EEPARAMS.h"
27 #include "PARAMS.h"
28 #include "GRID.h"
29 #include "DYNVARS.h"
30
31 C == Routine arguments ==
32 C myThid - Number of this instance of INI_THETA
33 INTEGER myThid
34 CEndOfInterface
35
36 C == Functions ==
37 Real*8 PORT_RAND
38 real *8 seed
39
40 C == Local variables ==
41 C bi,bj - Loop counters
42 C I,J,K
43 INTEGER bi, bj
44 INTEGER I, J, K
45 _RL term1,term2,thetaLim,thetaEq
46
47 _BARRIER
48
49 J = 99+myBxLo(myThid)+nPx*myByLo(myThid)
50 c CALL SRAND( J )
51 c seed = j
52
53 IF ( hydrogThetaFile .EQ. ' ' ) THEN
54 C-- Initialise temperature field to Held & Suarez equilibrium theta
55 DO bj = myByLo(myThid), myByHi(myThid)
56 DO bi = myBxLo(myThid), myBxHi(myThid)
57 DO K=1,Nr
58 thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
59 DO J=1,sNy
60 DO I=1,sNx
61 term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
62 term2=10. _d 0*log((rC(K)/atm_po))
63 & *(cos(yC(I,J,bi,bj)*deg2rad)**2)
64 thetaEq=315. _d 0-term1-term2
65 theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq )
66 c & + 0.01*(RAND()-0.5)
67 c & + 0.01*(PORT_RAND(seed)-0.5)
68 c theta(I,J,K,bi,bj) = tRef(K)
69 ENDDO
70 ENDDO
71 ENDDO
72 ENDDO
73 ENDDO
74 #ifdef ALLOW_ZONAL_FILT
75 C-- Zonal FFT filter initial conditions
76 DO bj = myByLo(myThid), myByHi(myThid)
77 DO bi = myBxLo(myThid), myBxHi(myThid)
78 DO K=1,Nr
79 DO J=1,sNy
80 CALL ZONAL_FILTER(
81 U theta, hFacC,
82 I 1, sNy, k, k, bi, bj, 1, myThid)
83 ENDDO
84 ENDDO
85 ENDDO
86 ENDDO
87 #endif /* INCLUDE_LAT_CIRC_FFT_FILTER_CODE */
88 ELSE
89 _BEGIN_MASTER( myThid )
90 CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid )
91 _END_MASTER(myThid)
92 ENDIF
93 C Set initial tendency terms
94 DO bj = myByLo(myThid), myByHi(myThid)
95 DO bi = myBxLo(myThid), myBxHi(myThid)
96 DO K=1,Nr
97 DO J=1,sNy
98 DO I=1,sNx
99 gt (I,J,K,bi,bj) = 0. _d 0
100 gtNM1(I,J,K,bi,bj) = 0. _d 0
101 IF (hFacC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0.
102 ENDDO
103 ENDDO
104 ENDDO
105 ENDDO
106 ENDDO
107 C
108
109
110 _EXCH_XYZ_R8(theta , myThid )
111 _EXCH_XYZ_R8(gt , myThid )
112 _EXCH_XYZ_R8(gtNM1 , myThid )
113
114 CALL PLOT_FIELD_XYZRL( theta, 'Initial Temperature' ,
115 & Nr, 1, myThid )
116
117 RETURN
118 END

  ViewVC Help
Powered by ViewVC 1.1.22