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

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

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

revision 1.8 by molod, Fri Jul 30 18:55:50 2004 UTC revision 1.9 by molod, Tue Aug 10 15:13:47 2004 UTC
# Line 146  c -------------------------------------- Line 146  c --------------------------------------
146        enddo        enddo
147        endif        endif
148                                                                                                                                                                    
149          if( (bi.eq.1) .and. (bj.eq.1) ) then
150        nradswt = nradswt + 1        nradswt = nradswt + 1
151        nradswg = nradswg + 1        nradswg = nradswg + 1
152        nswgclr = nswgclr + 1        nswgclr = nswgclr + 1
# Line 154  c -------------------------------------- Line 155  c --------------------------------------
155        nradlwg = nradlwg + 1        nradlwg = nradlwg + 1
156        nlwgclr = nlwgclr + 1        nlwgclr = nlwgclr + 1
157        nlwgup  = nlwgup  + 1        nlwgup  = nlwgup  + 1
158          endif
159                                                                                                                                                                    
160  C **********************************************************************          C **********************************************************************        
161        do L=1,Nrphys        do L=1,Nrphys
# Line 313  c ----------------------- Line 315  c -----------------------
315                                                                                                                                                                    
316        enddo        enddo
317    
318          if( (bi.eq.1) .and. (bj.eq.1) ) then
319        ndiabu = ndiabu + 1        ndiabu = ndiabu + 1
320        ndiabv = ndiabv + 1        ndiabv = ndiabv + 1
321        ndiabt = ndiabt + 1        ndiabt = ndiabt + 1
# Line 326  c ----------------------- Line 329  c -----------------------
329        ntmpu  = ntmpu  + 1                                  ntmpu  = ntmpu  + 1                          
330        ntke   = ntke   + 1        ntke   = ntke   + 1
331        nsphu  = nsphu  + 1        nsphu  = nsphu  + 1
332          endif
333    
334  C **********************************************************************          C **********************************************************************        
335    
# Line 426  c -------------------------------------- Line 430  c --------------------------------------
430        enddo        enddo
431        endif        endif
432    
433          if( (bi.eq.1) .and. (bj.eq.1) ) then
434        nvdtmoist = nvdtmoist + 1        nvdtmoist = nvdtmoist + 1
435        nvdtturb  = nvdtturb  + 1        nvdtturb  = nvdtturb  + 1
436        nvdtradlw = nvdtradlw + 1        nvdtradlw = nvdtradlw + 1
437        nvdtradsw = nvdtradsw + 1        nvdtradsw = nvdtradsw + 1
438          endif
439    
440  #endif  #endif
441        return        return
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22