50 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
51 |
INTEGER i |
INTEGER i |
52 |
CHARACTER*(MAX_LEN_MBUF) mncf |
CHARACTER*(MAX_LEN_MBUF) mncf |
53 |
|
CHARACTER*(1) pf |
54 |
#endif |
#endif |
55 |
|
|
56 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
233 |
|
|
234 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
235 |
IF ( useMNC .AND. thSIce_tave_mnc ) THEN |
IF ( useMNC .AND. thSIce_tave_mnc ) THEN |
236 |
|
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
237 |
|
pf(1:1) = 'D' |
238 |
|
ELSE |
239 |
|
pf(1:1) = 'R' |
240 |
|
ENDIF |
241 |
DO i = 1,MAX_LEN_MBUF |
DO i = 1,MAX_LEN_MBUF |
242 |
mncf(i:i) = ' ' |
mncf(i:i) = ' ' |
243 |
ENDDO |
ENDDO |
247 |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
248 |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
249 |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
250 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
251 |
& 'fract_ave', ice_fract_Ave, myThid) |
& 'fract_ave', ice_fract_Ave, myThid) |
252 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
253 |
& 'iceH_ave', ice_iceH_Ave, myThid) |
& 'iceH_ave', ice_iceH_Ave, myThid) |
254 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
255 |
& 'snowH_ave', ice_snowH_Ave, myThid) |
& 'snowH_ave', ice_snowH_Ave, myThid) |
256 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
257 |
& 'Tsrf_ave', ice_Tsrf_Ave, myThid) |
& 'Tsrf_ave', ice_Tsrf_Ave, myThid) |
258 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
259 |
& 'Tice1_ave', ice_Tice1_Ave, myThid) |
& 'Tice1_ave', ice_Tice1_Ave, myThid) |
260 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
261 |
& 'Tice2_ave', ice_Tice2_Ave, myThid) |
& 'Tice2_ave', ice_Tice2_Ave, myThid) |
262 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
263 |
& 'snowPr_ave',ice_snowPr_Ave,myThid) |
& 'snowPr_ave',ice_snowPr_Ave,myThid) |
264 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
265 |
& 'albedo_ave',ice_albedo_Ave,myThid) |
& 'albedo_ave',ice_albedo_Ave,myThid) |
266 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
267 |
& 'flx2oc_ave',ice_flx2oc_Ave,myThid) |
& 'flx2oc_ave',ice_flx2oc_Ave,myThid) |
268 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
269 |
& 'frw2oc_ave',ice_frw2oc_Ave,myThid) |
& 'frw2oc_ave',ice_frw2oc_Ave,myThid) |
270 |
IF ( fluidIsWater ) THEN |
IF ( fluidIsWater ) THEN |
271 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
272 |
& 'flxAtm_ave',ice_flxAtm_Ave,myThid) |
& 'flxAtm_ave',ice_flxAtm_Ave,myThid) |
273 |
CALL MNC_CW_RL_W('D',mncf,0,0, |
CALL MNC_CW_RL_W(pf,mncf,0,0, |
274 |
& 'frwAtm_ave',ice_frwAtm_Ave,myThid) |
& 'frwAtm_ave',ice_frwAtm_Ave,myThid) |
275 |
ENDIF |
ENDIF |
276 |
IF ( stepFwd_oceMxL ) THEN |
IF ( stepFwd_oceMxL ) THEN |
277 |
CALL MNC_CW_RL_W('D',mncf,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
278 |
CALL MNC_CW_RL_W('D',mncf,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
279 |
ENDIF |
ENDIF |
280 |
ENDIF |
ENDIF |
281 |
#endif |
#endif |
351 |
|
|
352 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
353 |
IF ( thSIce_snapshot_mnc ) THEN |
IF ( thSIce_snapshot_mnc ) THEN |
354 |
|
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
355 |
|
pf(1:1) = 'D' |
356 |
|
ELSE |
357 |
|
pf(1:1) = 'R' |
358 |
|
ENDIF |
359 |
DO i = 1,MAX_LEN_MBUF |
DO i = 1,MAX_LEN_MBUF |
360 |
mncf(i:i) = ' ' |
mncf(i:i) = ' ' |
361 |
ENDDO |
ENDDO |
365 |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
366 |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
367 |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
368 |
CALL MNC_CW_RL_W('D',mncf,0,0,'iceMask', iceMask, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceMask', iceMask, myThid) |
369 |
CALL MNC_CW_RL_W('D',mncf,0,0,'iceHeight', iceHeight, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceHeight', iceHeight, myThid) |
370 |
CALL MNC_CW_RL_W('D',mncf,0,0,'snowHeight',snowHeight,myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'snowHeight',snowHeight,myThid) |
371 |
CALL MNC_CW_RL_W('D',mncf,0,0,'Tsrf', Tsrf, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tsrf', Tsrf, myThid) |
372 |
CALL MNC_CW_RL_W('D',mncf,0,0,'Tice1', Tice1, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice1', Tice1, myThid) |
373 |
CALL MNC_CW_RL_W('D',mncf,0,0,'Tice2', Tice1, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice2', Tice1, myThid) |
374 |
CALL MNC_CW_RL_W('D',mncf,0,0,'Qice1', Qice1, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice1', Qice1, myThid) |
375 |
CALL MNC_CW_RL_W('D',mncf,0,0,'Qice2', Qice2, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice2', Qice2, myThid) |
376 |
CALL MNC_CW_RL_W('D',mncf,0,0,'snowAge', snowAge, myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'snowAge', snowAge, myThid) |
377 |
IF ( stepFwd_oceMxL ) THEN |
IF ( stepFwd_oceMxL ) THEN |
378 |
CALL MNC_CW_RL_W('D',mncf,0,0,'tOceMxL',tOceMxL,myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'tOceMxL',tOceMxL,myThid) |
379 |
CALL MNC_CW_RL_W('D',mncf,0,0,'sOceMxL',sOceMxL,myThid) |
CALL MNC_CW_RL_W(pf,mncf,0,0,'sOceMxL',sOceMxL,myThid) |
380 |
ENDIF |
ENDIF |
381 |
ENDIF |
ENDIF |
382 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |