53 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
54 |
#include "PARAMS.h" |
#include "PARAMS.h" |
55 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
56 |
|
#include "TR1.h" |
57 |
|
|
58 |
LOGICAL DIFFERENT_MULTIPLE |
LOGICAL DIFFERENT_MULTIPLE |
59 |
EXTERNAL DIFFERENT_MULTIPLE |
EXTERNAL DIFFERENT_MULTIPLE |
95 |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
96 |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
97 |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
98 |
|
CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid) |
99 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
100 |
IF (nonHydroStatic) THEN |
IF (nonHydroStatic) THEN |
101 |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
112 |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
113 |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
114 |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
115 |
|
CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid) |
116 |
|
|
117 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
118 |
IF (nonHydroStatic) THEN |
IF (nonHydroStatic) THEN |
119 |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |