/[MITgcm]/MITgcm/pkg/ecco/ecco_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_summary.F

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

revision 1.2 by heimbach, Thu Nov 6 22:10:08 2003 UTC revision 1.3 by heimbach, Sat Aug 6 11:02:01 2005 UTC
# Line 582  c--   Short wave radiative flux used as Line 582  c--   Short wave radiative flux used as
582       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
583  #endif  #endif
584    
585  #ifdef ALLOW_LWFLUX_CONTROL  #ifdef ALLOW_SWDOWN_CONTROL
586  c--   Long wave radiative flux used as part of the control vector.  c--   Short wave radiative flux used as part of the control vector.
587        write(msgbuf,'(a)')        write(msgbuf,'(a)')
588       &'// ALLOW_LWFLUX_CONTROL:                 defined'       &'// ALLOW_SWDOWN_CONTROL:                 defined'
589        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
590       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
591  #else  #else
592        write(msgbuf,'(a)')        write(msgbuf,'(a)')
593       &'// ALLOW_LWFLUX_CONTROL:             NOT defined'       &'// ALLOW_SWDOWN_CONTROL:             NOT defined'
594        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
595       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
596  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22