/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_summary.F

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

revision 1.16 by mlosch, Fri Feb 1 20:34:00 2008 UTC revision 1.17 by gforget, Wed Jun 11 18:55:10 2008 UTC
# Line 666  C--   Atmospheric pressure. Line 666  C--   Atmospheric pressure.
666       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
667  #endif  #endif
668    
669    #ifdef ALLOW_ICE_AREAMASK
670    C--   fractional ice-covered area MASK.
671          il = ilnblnk(areamaskfile)
672          write(msgbuf,'(a)') ' '
673          call print_message( msgbuf, standardmessageunit,
674         &                    SQUEEZE_RIGHT , mythid)
675          write(msgbuf,'(a,f12.0)')
676         &'   fractional ice-covered area MASK starts at      ',
677         &    areamaskstartdate
678          call print_message( msgbuf, standardmessageunit,
679         &                    SQUEEZE_RIGHT , mythid)
680          write(msgbuf,'(a,f12.0)')
681         &'   fractional ice-covered area MASK period is      ',
682         &    areamaskperiod
683          call print_message( msgbuf, standardmessageunit,
684         &                    SQUEEZE_RIGHT , mythid)
685          write(msgbuf,'(a)')
686         &'   fractional ice-covered area MASK is read from file:'
687          call print_message( msgbuf, standardmessageunit,
688         &                    SQUEEZE_RIGHT , mythid)
689          write(msgbuf,'(a,a,a)')
690         &'   >>  ',areamaskfile(1:il),'  <<'
691          call print_message( msgbuf, standardmessageunit,
692         &                    SQUEEZE_RIGHT , mythid)
693    #endif
694    
695        write(msgbuf,'(a)') ' '        write(msgbuf,'(a)') ' '
696        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
697       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22