/[MITgcm]/MITgcm/pkg/aim_v23/phy_driver.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/phy_driver.F

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

revision 1.6 by jmc, Thu Jun 24 23:43:11 2004 UTC revision 1.7 by jmc, Thu Jan 26 00:18:54 2006 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "AIM_OPTIONS.h"  #include "AIM_OPTIONS.h"
5    
6        SUBROUTINE PHY_DRIVER (tYear, myTime, myIter, bi, bj, myThid )          SUBROUTINE PHY_DRIVER( tYear, usePkgDiag,
7         I                       bi, bj, myTime, myIter, myThid )
8    
9  C------------------------  C------------------------
10  C from SPEDDY code: (part of original code left with c_FM)  C from SPEDDY code: (part of original code left with c_FM)
# Line 29  C------- Line 30  C-------
30  C     Resolution parameters  C     Resolution parameters
31    
32  C-- size for MITgcm & Physics package :  C-- size for MITgcm & Physics package :
33  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
34  #include "EEPARAMS.h"  #include "EEPARAMS.h"
35    
36  C-- Physics package  C-- Physics package
# Line 58  C     Logical flags Line 59  C     Logical flags
59  c_FM  include "com_lflags.h"  c_FM  include "com_lflags.h"
60    
61  C-- Routine arguments:  C-- Routine arguments:
62        _RL tYear, myTime        _RL tYear
63        INTEGER myIter, bi,bj, myThid        LOGICAL usePkgDiag
64          INTEGER bi,bj
65          _RL myTime
66          INTEGER myIter, myThid
67    
68  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
69    
# Line 306  c_FM &             TS,TSKIN,U0,V0,T0,Q0) Line 310  c_FM &             TS,TSKIN,U0,V0,T0,Q0)
310       U             EVAP(1,0,myThid), SLR(1,1,myThid),       U             EVAP(1,0,myThid), SLR(1,1,myThid),
311       O             ST4S, TS(1,myThid), TSKIN(1,myThid),       O             ST4S, TS(1,myThid), TSKIN(1,myThid),
312       I             bi,bj,myThid)       I             bi,bj,myThid)
313    
314    #ifdef ALLOW_DIAGNOSTICS
315          IF ( usePkgDiag ) THEN
316            CALL DIAGNOSTICS_FILL( SLR(1,0,myThid),
317         &                        'DWNLWG  ', 1, 1 , 3,bi,bj, myThid )
318          ENDIF
319    #endif
320  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
321    
322  C     3.4 Compute upward longwave fluxes, convert them to tendencies  C     3.4 Compute upward longwave fluxes, convert them to tendencies
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22