/[MITgcm]/MITgcm/pkg/fizhi/fizhi_driver.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_driver.F

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

revision 1.24 by molod, Thu Aug 26 14:30:20 2004 UTC revision 1.25 by molod, Thu Sep 9 20:51:09 2004 UTC
# Line 167  C ==================== Line 167  C ====================
167  C LONG WAVE RADIATION  C LONG WAVE RADIATION
168  C ===================  C ===================
169        IF ( alarm('radlw') ) THEN        IF ( alarm('radlw') ) THEN
170           print *,' calling lw '
171    
172  c Set Reference Ground Temperature  c Set Reference Ground Temperature
173  c --------------------------------  c --------------------------------
# Line 205  C ========== Line 206  C ==========
206        enddo        enddo
207        enddo        enddo
208        print *,' radswg ',tempij        print *,' radswg ',tempij
209        do j = 1,jm  c     do j = 1,jm
210        do i = 1,im  c     do i = 1,im
211         tempij(i,j) = st4(i,j)  c      tempij(i,j) = st4(i,j)
212        enddo  c     enddo
213        enddo  c     enddo
214        print *,' st4 ',tempij  c     print *,' st4 ',tempij
215        do j = 1,jm  c     do j = 1,jm
216        do i = 1,im  c     do i = 1,im
217         tempij(i,j) = dst4(i,j)  c      tempij(i,j) = dst4(i,j)
218        enddo  c     enddo
219        enddo  c     enddo
220        print *,' dst4 ',tempij  c     print *,' dst4 ',tempij
221        do j = 1,jm  c     do j = 1,jm
222        do i = 1,im  c     do i = 1,im
223         tempij(i,j) = radlwg(i,j)  c      tempij(i,j) = radlwg(i,j)
224        enddo  c     enddo
225        enddo  c     enddo
226        print *,' radlwg ',tempij  c     print *,' radlwg ',tempij
227        do j = 1,jm  c     do j = 1,jm
228        do i = 1,im  c     do i = 1,im
229         tempij(i,j) = fdifpar(i,j)  c      tempij(i,j) = fdifpar(i,j)
230        enddo  c     enddo
231        enddo  c     enddo
232        print *,' fdifpar ',tempij  c     print *,' fdifpar ',tempij
233        do j = 1,jm  c     do j = 1,jm
234        do i = 1,im  c     do i = 1,im
235         tempij(i,j) = fdirpar(i,j)  c      tempij(i,j) = fdirpar(i,j)
236        enddo  c     enddo
237        enddo  c     enddo
238        print *,' fdirpar ',tempij  c     print *,' fdirpar ',tempij
239        do j = 1,jm  c     do j = 1,jm
240        do i = 1,im  c     do i = 1,im
241         tempij(i,j) = tgz(i,j)  c      tempij(i,j) = tgz(i,j)
242        enddo  c     enddo
243        enddo  c     enddo
244        print *,' tgz ',tempij  c     print *,' tgz ',tempij
245        do j = 1,jm  c     do j = 1,jm
246        do i = 1,im  c     do i = 1,im
247         tempij(i,j) = tg0(i,j)  c      tempij(i,j) = tg0(i,j)
248        enddo  c     enddo
249        enddo  c     enddo
250        print *,' tg0 ',tempij  c     print *,' tg0 ',tempij
251        endif        endif
252    
253        call turbio (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb,        call turbio (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb,
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22