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

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

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

revision 1.1 by heimbach, Mon May 14 22:08:40 2001 UTC revision 1.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC
# Line 152  c     Relaxation to pot. temperature cli Line 152  c     Relaxation to pot. temperature cli
152        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
153       &'   Climatological pot. temperature starts at         ',       &'   Climatological pot. temperature starts at         ',
154       &    (climtempstartdate(i), i=1,2),       &    (climtempstartdate(i), i=1,2),
155       & dayofweek(climtempstartstartdate(4)),'.'       & dayofweek(climtempstartdate(4)),'.'
156        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
157       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
158        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,i9.8,i7.6)')
# Line 183  c     Relaxation to salinity climatology Line 183  c     Relaxation to salinity climatology
183        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
184       &'   Climatological salinity starts at         ',       &'   Climatological salinity starts at         ',
185       &    (climsaltstartdate(i), i=1,2),       &    (climsaltstartdate(i), i=1,2),
186       & dayofweek(climsaltstartstartdate(4)),'.'       & dayofweek(climsaltstartdate(4)),'.'
187        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
188       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
189        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,i9.8,i7.6)')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22