/[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.3 by jmc, Thu Jun 12 17:59:05 2003 UTC revision 1.4 by jmc, Mon Dec 15 02:10:26 2003 UTC
# Line 107  C-    AIM diagnostics : write snap-shot Line 107  C-    AIM diagnostics : write snap-shot
107        CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid )        CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid )
108    
109  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
110          IF (useLand) THEN        IF (useLand) THEN
111  C-    prepare Surface flux over land for land package  C-    prepare Surface flux over land for land package
112          CALL AIM_AIM2LAND( aim_landFr, bi, bj,          CALL AIM_AIM2LAND( aim_landFr, bi, bj,
113       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
# Line 123  C-    Land diagnostics : write snap-shot Line 123  C-    Land diagnostics : write snap-shot
123        ENDIF        ENDIF
124  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
125    
126    #ifdef COMPONENT_MODULE
127          IF ( useCoupler ) THEN
128            CALL ATM_STORE_MY_DATA( bi, bj, myIter, myTime, myThid )
129          ENDIF
130    #endif /* COMPONENT_MODULE */
131    
132  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
133    
134        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22