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

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

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

revision 1.8 by molod, Tue Jun 15 21:18:18 2004 UTC revision 1.9 by molod, Tue Jun 15 22:18:27 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
4         subroutine do_fizhi(uphy,vphy,thphy,sphy,pephy,lons,lats,         subroutine do_fizhi(uphy,vphy,thphy,sphy,pephy,lons,lats,
5       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,       .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
6       .   sst,sice,phis_var,landtype,emiss,albnidr,albnirdf,       .   sst,sice,phis_var,landtype,emiss,albnidr,albnirdf,
# Line 11  C $Name$ Line 11  C $Name$
11       .   nchp,       .   nchp,
12       .   duphy,dvphy,dthphy,dsphy)       .   duphy,dvphy,dthphy,dsphy)
13  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
14  c Interface routine to calculate physics increments - call geos-3 driver  c Interface routine to calculate physics increments - calls fizhi_driver.
15  c Purpose of this routine is to pull things from model common blocks  c Purpose of this routine is to set up arrays local to fizhi and 'save'
16  c to send to physdrv. Also to take output from there and put into model  c them from one iteration to the next, and act as interface between the
17  c common blocks.  c model common blocks (held in fizhi_wrapper) and fizhi_driver.
18    c Copies of variables that are 'shadowed' are made here without shadows
19    c for passing to fizhi_driver.
20    c Note: routine is called from inside a bi-bj loop
21  c  c
22  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
23        implicit none        implicit none
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22