/[MITgcm]/MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F
ViewVC logotype

Diff of /MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F

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

revision 1.7 by molod, Thu Oct 21 16:27:33 2004 UTC revision 1.8 by molod, Tue Oct 26 17:47:12 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  #include "FIZHI_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
4         subroutine do_fizhi(myid,         subroutine do_fizhi(myIter,myid,
5       . idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj,       . idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj,
6       . nchp,nchptot,nchpland,       . nchp,nchptot,nchpland,
7       . uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf,       . uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf,
# Line 31  c--------------------------------------- Line 31  c---------------------------------------
31  #include "chronos.h"  #include "chronos.h"
32    
33  C Argument list declarations  C Argument list declarations
34        integer myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2        integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2
35        integer Nrphin,Nsxin,Nsyin,bi,bj,nchp        integer Nrphin,Nsxin,Nsyin,bi,bj,nchp
36        integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin)        integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin)
37        _RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)        _RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22