/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.32 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.33 by jmc, Fri Nov 22 03:01:18 2002 UTC
# Line 500  CADJ STORE tr1  (:,:,:,bi,bj) = comlev1_ Line 500  CADJ STORE tr1  (:,:,:,bi,bj) = comlev1_
500    
501  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
502  C       AIM - atmospheric intermediate model, physics package code.  C       AIM - atmospheric intermediate model, physics package code.
 C note(jmc) : phiHyd=0 at this point but is not really used in Molteni Physics  
503          IF ( useAIM ) THEN          IF ( useAIM ) THEN
504           CALL TIMER_START('AIM_DO_ATMOS_PHYS      [DYNAMICS]', myThid)           CALL TIMER_START('AIM_DO_PHYSICS   [THERMODYNAMICS]', myThid)
505           CALL AIM_DO_ATMOS_PHYSICS( bi, bj, myTime, myThid )           CALL AIM_DO_PHYSICS( bi, bj, myTime, myIter, myThid )
506           CALL TIMER_STOP ('AIM_DO_ATMOS_PHYS      [DYNAMICS]', myThid)           CALL TIMER_STOP( 'AIM_DO_PHYSICS   [THERMODYNAMICS]', myThid)
507          ENDIF          ENDIF
508  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
509    
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22