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

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

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

Revision 1.1 - (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 
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_INIT_FIXED( myThid )
7
8 IMPLICIT NONE
9 C === Global variables ===
10 #include "SIZE.h"
11 #include "EEPARAMS.h"
12 #include "PARAMS.h"
13
14 C == Routine arguments ==
15 C myThid - Number of this instance of INI_UVEL
16 INTEGER myThid
17
18 C !LOCAL VARIABLES:
19 C == Local variables ==
20 C bi,bj - Loop counters
21 C I,J,K
22 INTEGER bi, bj
23 INTEGER I, J, K
24 CHARACTER*(MAX_LEN_FNAM) fn
25 CHARACTER*(10) suff
26 INTEGER prec
27 CEOP
28
29 #ifdef ALLOW_CD_CODE
30
31 #ifdef ALLOW_MNC
32 IF (useMNC) THEN
33 C Define grid types for CD_CODE variables
34 CALL MNC_CW_ADD_VNAME('uVelD', 'Cen_xy_Hn__C__t',
35 & 4,5, myThid)
36 CALL MNC_CW_ADD_VATTR_TEXT('uVelD','units','m/s',
37 & myThid)
38 CALL MNC_CW_ADD_VATTR_TEXT('uVelD','long_name',
39 & 'CD_CODE_u_velocity', myThid)
40 CALL MNC_CW_ADD_VATTR_TEXT('uVelD',
41 & 'coordinates','XC YC RC iter', myThid)
42
43 CALL MNC_CW_ADD_VNAME('vVelD', 'Cen_xy_Hn__C__t',
44 & 4,5, myThid)
45 CALL MNC_CW_ADD_VATTR_TEXT('vVelD','units','m/s',
46 & myThid)
47 CALL MNC_CW_ADD_VATTR_TEXT('vVelD','long_name',
48 & 'CD_CODE_v_velocity', myThid)
49 CALL MNC_CW_ADD_VATTR_TEXT('vVelD',
50 & 'coordinates','XC YC RC iter', myThid)
51
52 CALL MNC_CW_ADD_VNAME('Unm1', 'Cen_xy_Hn__C__t',
53 & 4,5, myThid)
54 CALL MNC_CW_ADD_VATTR_TEXT('Unm1','units','m/s',
55 & myThid)
56 CALL MNC_CW_ADD_VATTR_TEXT('Unm1','long_name',
57 & 'CD_CODE_u_velocity_at_n-1', myThid)
58 CALL MNC_CW_ADD_VATTR_TEXT('Unm1',
59 & 'coordinates','XC YC RC iter', myThid)
60
61 CALL MNC_CW_ADD_VNAME('Vnm1', 'Cen_xy_Hn__C__t',
62 & 4,5, myThid)
63 CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','units','m/s',
64 & myThid)
65 CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','long_name',
66 & 'CD_CODE_u_velocity_at_n-1', myThid)
67 CALL MNC_CW_ADD_VATTR_TEXT('Vnm1',
68 & 'coordinates','XC YC RC iter', myThid)
69
70 CALL MNC_CW_ADD_VNAME('etaNm1', 'Cen_xy_Hn__-__t',
71 & 3,4, myThid)
72 CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','units','m',
73 & myThid)
74 CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','long_name',
75 & 'CD_CODE_ssh_at_n-1', myThid)
76 CALL MNC_CW_ADD_VATTR_TEXT('etaNm1',
77 & 'coordinates','XC YC RC iter', myThid)
78 ENDIF
79 #endif /* ALLOW_MNC */
80
81 #endif /* ALLOW_CD_CODE */
82
83 RETURN
84 END
  ViewVC Help
Powered by ViewVC 1.1.22