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

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

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

revision 1.2 by molod, Mon Feb 23 20:34:38 2004 UTC revision 1.5 by molod, Mon Jul 26 18:45:17 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "FIZHI_OPTIONS.h"
5         subroutine step_physics(uphy,vphy,thphy,sphy,dt,         subroutine step_physics(uphy,vphy,thphy,sphy,dt,
6       .  im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2,jdim1,jdim2,bi,bj,       .  im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2,jdim1,jdim2,bi,bj,
7       .                                         duphy,dvphy,dthphy,dsphy)       .                                         duphy,dvphy,dthphy,dsphy)
# Line 6  c Routine to step physics state forward Line 10  c Routine to step physics state forward
10  c  c
11  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
12         implicit none         implicit none
 #include "CPP_OPTIONS.h"                                                                
13         integer im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2         integer im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2
14         integer Nrphys,Nsx,Nsy,bi,bj         integer Nrphys,Nsx,Nsy,bi,bj
15         _RL uphy(im1:im2,jm1:jm2,Nrphys,Nsx,Nsy)         _RL uphy(im1:im2,jm1:jm2,Nrphys,Nsx,Nsy)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22