/[MITgcm]/MITgcm/pkg/aim/aim_do_atmos_physics.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_do_atmos_physics.F

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

revision 1.10 by jmc, Fri Sep 27 20:05:11 2002 UTC revision 1.11 by jmc, Wed Oct 9 01:01:24 2002 UTC
# Line 3  C     $Name$ Line 3  C     $Name$
3    
4  #include "AIM_OPTIONS.h"  #include "AIM_OPTIONS.h"
5    
6        SUBROUTINE AIM_DO_ATMOS_PHYSICS( phi_hyd,        SUBROUTINE AIM_DO_ATMOS_PHYSICS( bi, bj, currentTime, myThid )
7       I                                 bi, bj,                                        
      I                                 currentTime, myThid )  
8  C     /==================================================================\  C     /==================================================================\
9  C     | S/R AIM_DO_ATMOS_PHYSICS                                         |  C     | S/R AIM_DO_ATMOS_PHYSICS                                         |
10  C     |==================================================================|  C     |==================================================================|
# Line 37  C-- Physics package Line 36  C-- Physics package
36  #include "com_forcing1.h"  #include "com_forcing1.h"
37    
38  C     -------------- Routine arguments -----------------------------------  C     -------------- Routine arguments -----------------------------------
39        _RL phi_hyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)  c     _RL phi_hyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
40        _RL currentTime        _RL currentTime
41        INTEGER myThid        INTEGER myThid
42        INTEGER bi, bj        INTEGER bi, bj
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22