/[MITgcm]/MITgcm/pkg/cd_code/cd_code_ini_vars.F
ViewVC logotype

Contents of /MITgcm/pkg/cd_code/cd_code_ini_vars.F

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

Revision 1.6 - (show annotations) (download)
Wed Oct 13 18:37:26 2004 UTC (19 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint57o_post, checkpoint57v_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint55h_post, checkpoint57g_pre, checkpoint56c_post, checkpoint57y_pre, checkpoint57f_pre, checkpoint57a_post, checkpoint55g_post, checkpoint55f_post, checkpoint57r_post, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint57x_post, checkpoint57n_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint57q_post, checkpoint57z_post, checkpoint57c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post
Changes since 1.5: +1 -51 lines 
Initialisation of MNC within cd_code must not occur in cd_code_ini_vars.
While it is benign for the forward, it causes recomputation issues
and attempt to re-initialise MNC stuff (and crash), despite flow directives.
1 C $Header: /u/gcmpack/MITgcm/pkg/cd_code/cd_code_ini_vars.F,v 1.5 2004/10/10 06:08:48 edhill Exp $
2 C $Name: $
3
4 #include "CD_CODE_OPTIONS.h"
5
6 SUBROUTINE CD_CODE_INI_VARS( myThid )
7
8 IMPLICIT NONE
9 C === Global variables ===
10 #include "SIZE.h"
11 #include "EEPARAMS.h"
12 #include "PARAMS.h"
13 #include "CD_CODE_VARS.h"
14
15 C == Routine arguments ==
16 C myThid - Number of this instance of INI_UVEL
17 INTEGER myThid
18
19 C !LOCAL VARIABLES:
20 C == Local variables ==
21 C bi,bj - Loop counters
22 C I,J,K
23 INTEGER bi, bj
24 INTEGER I, J, K
25 CHARACTER*(MAX_LEN_FNAM) fn
26 CHARACTER*(10) suff
27 INTEGER prec
28 CEOP
29
30 #ifdef ALLOW_CD_CODE
31
32 C-- Over all tiles
33 DO bj = myByLo(myThid), myByHi(myThid)
34 DO bi = myBxLo(myThid), myBxHi(myThid)
35
36 C- 3D arrays
37 DO K=1,Nr
38 DO J=1-Oly,sNy+Oly
39 DO I=1-Olx,sNx+Olx
40 uNM1(I,J,K,bi,bj)=0. _d 0
41 vNM1(I,J,K,bi,bj)=0. _d 0
42 uVeld(I,J,K,bi,bj)=0. _d 0
43 vVeld(I,J,K,bi,bj)=0. _d 0
44 ENDDO
45 ENDDO
46 ENDDO
47
48 C- 2D arrays
49 DO J=1-Oly,sNy+Oly
50 DO I=1-Olx,sNx+Olx
51 etaNm1(I,J,bi,bj)=0. _d 0
52 ENDDO
53 ENDDO
54
55 ENDDO
56 ENDDO
57
58 IF ( nIter0.NE.0 ) THEN
59 CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid )
60 ENDIF
61
62 #endif /* ALLOW_CD_CODE */
63
64 RETURN
65 END
  ViewVC Help
Powered by ViewVC 1.1.22