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

Annotation 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 - (hide 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 heimbach 1.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