/[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.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC revision 1.3 by jmc, Tue Mar 6 17:53:02 2001 UTC
# Line 32  C     MITgcm Line 32  C     MITgcm
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "PARAMS.h"  #include "PARAMS.h"
34  #include "DYNVARS.h"  #include "DYNVARS.h"
 #include "CG2D.h"  
35  #include "GRID.h"  #include "GRID.h"
36    
37  C     -------------- Routine arguments -----------------------------------  C     -------------- Routine arguments -----------------------------------
# Line 132  C       the mean heave of the base of th Line 131  C       the mean heave of the base of th
131        DO K=1,Nr        DO K=1,Nr
132        DO J=1,sNy        DO J=1,sNy
133         DO I=1,sNx         DO I=1,sNx
134          phiTotal(I,J,K)  = cg2d_x(i,j,bi,bj)          phiTotal(I,J,K)  = etaN(i,j,bi,bj)
135          phiTCount        = phiTCount + hFacC(i,j,Nr,bi,bj)          phiTCount        = phiTCount + hFacC(i,j,Nr,bi,bj)
136         ENDDO         ENDDO
137        ENDDO        ENDDO
# Line 339  C -------------------------------------- Line 338  C --------------------------------------
338  C  C
339        CALL PDRIVER( tYear )        CALL PDRIVER( tYear )
340    
341  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
342  C     Calculate diagnostics for AIM  C     Calculate diagnostics for AIM
343        CALL AIM_CALC_DIAGS( bi, bj, currentTime, myThid )        CALL AIM_CALC_DIAGS( bi, bj, currentTime, myThid )
344  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
345  C  C
346        FirstCall = .FALSE.        FirstCall = .FALSE.
347  C  C
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22