/[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.2 by heimbach, Tue Nov 12 20:34:41 2002 UTC revision 1.3 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 24  c Line 24  c
24  c              - changed the handling of precip and sflux with respect  c              - changed the handling of precip and sflux with respect
25  c                to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP  c                to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP
26  c  c
27    c              Dimitris Menemenlis menemenlis@jpl.nasa.gov  20-Dec-2002
28    c
29    c              - Added EXF_READ_EVAP and EXF_NO_BULK_COMPUTATIONS.
30    c
31  c     ==================================================================  c     ==================================================================
32  c     SUBROUTINE exf_Summary  c     SUBROUTINE exf_Summary
33  c     ==================================================================  c     ==================================================================
# Line 106  c     and the corresponding file from wh Line 110  c     and the corresponding file from wh
110        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
111       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
112        write(msgbuf,'(a)')        write(msgbuf,'(a)')
113       &'// ALLOW_ATM_TEMP:                       defined'       &'// ALLOW_ATM_TEMP:                     defined'
114        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
115       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
116  #else  #else
# Line 115  c     and the corresponding file from wh Line 119  c     and the corresponding file from wh
119        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
120       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
121        write(msgbuf,'(a)')        write(msgbuf,'(a)')
122       &'// ALLOW_ATM_TEMP:                   NOT defined'       &'// ALLOW_ATM_TEMP:                 NOT defined'
123        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
124       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
125  #endif  #endif
126  #ifdef ALLOW_ATM_WIND  #ifdef ALLOW_ATM_WIND
127        write(msgbuf,'(a)')        write(msgbuf,'(a)')
128       &'// ALLOW_ATM_WIND:                       defined'       &'// ALLOW_ATM_WIND:                     defined'
129          call print_message( msgbuf, standardmessageunit,
130         &                    SQUEEZE_RIGHT , mythid)
131    #else
132          write(msgbuf,'(a)')
133         &'// ALLOW_ATM_WIND:                 NOT defined'
134          call print_message( msgbuf, standardmessageunit,
135         &                    SQUEEZE_RIGHT , mythid)
136    #endif
137    #ifdef EXF_NO_BULK_COMPUTATIONS
138          write(msgbuf,'(a)')
139         &'// EXF_NO_BULK_COMPUTATIONS:           defined'
140        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
141       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
142  #else  #else
143        write(msgbuf,'(a)')        write(msgbuf,'(a)')
144       &'// ALLOW_ATM_WIND:                   NOT defined'       &'// EXF_NO_BULK_COMPUTATIONS:       NOT defined'
145        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
146       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
147  #endif  #endif
# Line 149  c     and the corresponding file from wh Line 164  c     and the corresponding file from wh
164       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
165  #endif  #endif
166    
167    #ifdef EXF_READ_EVAP
168          write(msgbuf,'(a)')
169         &'// EXF_READ_EVAP:                      defined'
170          call print_message( msgbuf, standardmessageunit,
171         &                    SQUEEZE_RIGHT , mythid)
172          il = ilnblnk(evapfile)
173          call cal_TimeInterval( evapperiod, 'secs', timeint, mythid )
174    
175          write(msgbuf,'(a)')
176         &' '
177          call print_message( msgbuf, standardmessageunit,
178         &                    SQUEEZE_RIGHT , mythid)
179          write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
180         &'   Evaporation starts at     ',
181         &    (evapstartdate(i), i=1,2), dayofweek(evapstartdate(4)),
182         &    '.'
183          call print_message( msgbuf, standardmessageunit,
184         &                    SQUEEZE_RIGHT , mythid)
185          write(msgbuf,'(a,i9.8,i7.6)')
186         &'   Evaporation period is     ',
187         &    (timeint(i), i=1,2)
188          call print_message( msgbuf, standardmessageunit,
189         &                    SQUEEZE_RIGHT , mythid)
190          write(msgbuf,'(a)')
191         &'   Evaporation is read from file:'
192          call print_message( msgbuf, standardmessageunit,
193         &                    SQUEEZE_RIGHT , mythid)
194          write(msgbuf,'(a,a,a)')
195         &'   >>  ',evapfile(1:il),'  <<'
196          call print_message( msgbuf, standardmessageunit,
197         &                    SQUEEZE_RIGHT , mythid)
198    #else EXF_READ_EVAP
199          write(msgbuf,'(a)')
200         &'// EXF_READ_EVAP:                  NOT defined'
201          call print_message( msgbuf, standardmessageunit,
202         &                    SQUEEZE_RIGHT , mythid)
203    #endif EXF_READ_EVAP
204    
205  #ifdef ALLOW_RUNOFF  #ifdef ALLOW_RUNOFF
206          write(msgbuf,'(a)')
207         &'// ALLOW_RUNOFF:                       defined'
208          call print_message( msgbuf, standardmessageunit,
209         &                    SQUEEZE_RIGHT , mythid)
210        il = ilnblnk(runofffile)        il = ilnblnk(runofffile)
211        call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid )        call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid )
212    
# Line 176  c     and the corresponding file from wh Line 233  c     and the corresponding file from wh
233       &'   >>  ',runofffile(1:il),'  <<'       &'   >>  ',runofffile(1:il),'  <<'
234        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
235       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
236  #endif  #else ALLOW_RUNOFF
237          write(msgbuf,'(a)')
238         &'// ALLOW_RUNOFF:                   NOT defined'
239          call print_message( msgbuf, standardmessageunit,
240         &                    SQUEEZE_RIGHT , mythid)
241    #endif ALLOW_RUNOFF
242    
243  #ifdef ALLOW_BULKFORMULAE  #ifdef ALLOW_BULKFORMULAE
244    
# Line 664  c     Short wave radiative flux. Line 726  c     Short wave radiative flux.
726    
727  #endif  #endif
728    
 #ifdef ALLOW_KPP  
       write(msgbuf,'(a)')  
      &'// ALLOW_KPP:                          defined'  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
 #else  
       write(msgbuf,'(a)')  
      &'// ALLOW_KPP:                      NOT defined'  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
 #endif  
   
729        write(msgbuf,'(a)')        write(msgbuf,'(a)')
730       &' '       &' '
731        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22