94 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
95 |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
96 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
97 |
& 'G_Jwvel.',suff, g_vvel, myIter, myThid) |
& 'G_Jwvel.',suff, g_wvel, myIter, myThid) |
98 |
CALL WRITE_FLD_XY_RL( |
CALL WRITE_FLD_XY_RL( |
99 |
& 'G_Jetan.',suff, g_vvel, myIter, myThid) |
& 'G_Jetan.',suff, g_etan, myIter, myThid) |
100 |
|
|
101 |
#ifdef ALLOW_DIFFKR_CONTROL |
#ifdef ALLOW_DIFFKR_CONTROL |
102 |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |