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

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

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

revision 1.7 by jmc, Fri May 21 17:37:29 2004 UTC revision 1.8 by jmc, Thu Jun 24 23:43:11 2004 UTC
# Line 116  C---+----1----+----2----+----3----+----4 Line 116  C---+----1----+----2----+----3----+----4
116  C-    Compute atmospheric-physics tendencies (call the main AIM S/R)  C-    Compute atmospheric-physics tendencies (call the main AIM S/R)
117        CALL PHY_DRIVER( tYear, myTime, myIter, bi, bj, myThid )        CALL PHY_DRIVER( tYear, myTime, myIter, bi, bj, myThid )
118    
 C-    AIM diagnostics : write snap-shot & cumulate for TimeAve output  
       CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid )  
   
119        CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid )        CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid )
120    
121  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
# Line 154  C-    Step forward sea-ice model Line 151  C-    Step forward sea-ice model
151       I                        myTime, myIter, myThid )       I                        myTime, myIter, myThid )
152    
153  C-    Slab Ocean : step forward ocean mixed-layer temp. & salinity  C-    Slab Ocean : step forward ocean mixed-layer temp. & salinity
154          CALL THSICE_SLAB_OCEAN( bi,bj, myThid )          CALL THSICE_SLAB_OCEAN(
155         O                         dTsurf(1,2,myThid),
156         I                         bi,bj, myThid )
157    
158          CALL THSICE_AVE( evpAtm, flxSW,          CALL THSICE_AVE( evpAtm, flxSW,
159       I                   bi, bj, myTime, myIter, myThid )       I                   bi, bj, myTime, myIter, myThid )
# Line 168  C-    Slab Ocean : step forward ocean mi Line 167  C-    Slab Ocean : step forward ocean mi
167        ENDIF        ENDIF
168  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
169    
170    C-    AIM diagnostics : write snap-shot & cumulate for TimeAve output
171          CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid )
172    
173  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
174    
175        RETURN        RETURN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22