/[MITgcm]/MITgcm/pkg/thsice/thsice_output.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_output.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jmc, Wed Aug 24 23:23:34 2005 UTC revision 1.7 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 50  C     == Local variables == Line 50  C     == Local variables ==
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
# Line 232  C        find wether we are writing glob Line 233  C        find wether we are writing glob
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
# Line 241  C        C             123456789 1 Line 247  C        C             123456789 1
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
# Line 345  C     Dump a snap-shot of main state var Line 351  C     Dump a snap-shot of main state var
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
# Line 354  C         C             123456789 12345 Line 365  C         C             123456789 12345
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 */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22