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 |
|
cph CALL WRITE_FLD_XYZ_RL( |
|
|
cph & 'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid) |
|
|
cph CALL WRITE_FLD_XYZ_RL( |
|
|
cph & 'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid) |
|
|
cph CALL WRITE_FLD_XYZ_RL( |
|
|
cph & 'G_Jgunm1.',suff, g_gunm1, myIter, myThid) |
|
|
cph CALL WRITE_FLD_XYZ_RL( |
|
|
cph & 'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid) |
|
|
#ifdef ALLOW_PASSIVE_TRACER |
|
|
cph CALL WRITE_FLD_XYZ_RL( |
|
|
cph & 'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid) |
|
|
#endif |
|
|
c |
|
89 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
90 |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
91 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
99 |
CALL WRITE_FLD_XY_RL( |
CALL WRITE_FLD_XY_RL( |
100 |
& 'G_Jetan.',suff, g_vvel, myIter, myThid) |
& 'G_Jetan.',suff, g_vvel, myIter, myThid) |
101 |
|
|
|
#ifdef ALLOW_PASSIVE_TRACER |
|
|
CALL WRITE_FLD_XYZ_RL( |
|
|
& 'G_Jtr1. ',suff, g_tr1, myIter, myThid) |
|
|
#endif |
|
102 |
#ifdef ALLOW_DIFFKR_CONTROL |
#ifdef ALLOW_DIFFKR_CONTROL |
103 |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
104 |
& myIter, myThid) |
& myIter, myThid) |