86 |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
87 |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
88 |
c |
c |
89 |
CALL WRITE_FLD_XYZ_RL( |
cph CALL WRITE_FLD_XYZ_RL( |
90 |
& 'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid) |
cph & 'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid) |
91 |
CALL WRITE_FLD_XYZ_RL( |
cph CALL WRITE_FLD_XYZ_RL( |
92 |
& 'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid) |
cph & 'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid) |
93 |
CALL WRITE_FLD_XYZ_RL( |
cph CALL WRITE_FLD_XYZ_RL( |
94 |
& 'G_Jgunm1.',suff, g_gunm1, myIter, myThid) |
cph & 'G_Jgunm1.',suff, g_gunm1, myIter, myThid) |
95 |
CALL WRITE_FLD_XYZ_RL( |
cph CALL WRITE_FLD_XYZ_RL( |
96 |
& 'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid) |
cph & 'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid) |
97 |
#ifdef ALLOW_PASSIVE_TRACER |
#ifdef ALLOW_PASSIVE_TRACER |
98 |
CALL WRITE_FLD_XYZ_RL( |
cph CALL WRITE_FLD_XYZ_RL( |
99 |
& 'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid) |
cph & 'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid) |
100 |
#endif |
#endif |
101 |
c |
c |
102 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
107 |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
108 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
109 |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
110 |
|
CALL WRITE_FLD_XYZ_RL( |
111 |
|
& 'G_Jwvel.',suff, g_vvel, myIter, myThid) |
112 |
|
CALL WRITE_FLD_XY_RL( |
113 |
|
& 'G_Jetan.',suff, g_vvel, myIter, myThid) |
114 |
|
|
115 |
#ifdef ALLOW_PASSIVE_TRACER |
#ifdef ALLOW_PASSIVE_TRACER |
116 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |