61 |
|
|
62 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
63 |
|
|
64 |
IF (snapshot_mdsio) THEN |
C Write horizontal grid arrays |
65 |
C Write horizontal grid arrays |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
66 |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
67 |
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
68 |
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
69 |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
70 |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
71 |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
72 |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
73 |
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
74 |
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
75 |
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
76 |
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
C Write 3D geometry arrays |
77 |
C Write 3D geometry arrays |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid) |
78 |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid) |
79 |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid) |
80 |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS,0,myThid) |
81 |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS,0,myThid) |
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') |
82 |
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') |
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,0,myThid) |
|
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,0,myThid) |
|
83 |
|
|
|
ENDIF |
|
84 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
85 |
|
|
86 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
87 |
IF (useMNC .AND. snapshot_mnc) THEN |
_BEGIN_MASTER( myThid ) |
88 |
|
IF (useMNC) THEN |
89 |
bfname='grid' |
bfname='grid' |
90 |
|
|
91 |
C Grid spacing, areas and hFacs |
C Grid spacing, areas and hFacs |
92 |
CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid) |
CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid) |
93 |
CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid) |
CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid) |
200 |
CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid) |
CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid) |
201 |
|
|
202 |
ENDIF |
ENDIF |
203 |
|
_END_MASTER(myThid) |
204 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
205 |
|
|
206 |
RETURN |
RETURN |