/[MITgcm]/MITgcm/verification/aim.5l_cs/code/external_forcing.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_cs/code/external_forcing.F

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

revision 1.1 by cnh, Mon Jun 18 17:40:07 2001 UTC revision 1.2 by jmc, Fri Nov 22 17:20:09 2002 UTC
# Line 40  C     Loop counters Line 40  C     Loop counters
40    
41  C--   Forcing term  C--   Forcing term
42  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
43        IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_U( iMin, iMax, jMin, jMax,        IF ( useAIM ) CALL AIM_TENDENCY_APPLY_U( iMin, iMax, jMin, jMax,
44       &                                           bi,bj,kLev,       &                                           bi,bj,kLev,
45       &                                           myCurrentTime, myThid )       &                                           myCurrentTime, myThid )
46  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
# Line 85  C     Loop counters Line 85  C     Loop counters
85    
86  C--   Forcing term  C--   Forcing term
87  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
88        IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_V( iMin, iMax, jMin, jMax,        IF ( useAIM ) CALL AIM_TENDENCY_APPLY_V( iMin, iMax, jMin, jMax,
89       &                                           bi,bj,kLev,       &                                           bi,bj,kLev,
90       &                                           myCurrentTime, myThid )       &                                           myCurrentTime, myThid )
91  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
# Line 129  C     Loop counters Line 129  C     Loop counters
129    
130  C--   Forcing term  C--   Forcing term
131  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
132        IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_T( iMin, iMax,        IF ( useAIM ) CALL AIM_TENDENCY_APPLY_T( iMin, iMax,
133       &              jMin, jMax,bi,bj,kLev,       &              jMin, jMax,bi,bj,kLev,
134       &              myCurrentTime, myThid )       &              myCurrentTime, myThid )
135  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
# Line 174  C     Loop counters Line 174  C     Loop counters
174    
175  C--   Forcing term  C--   Forcing term
176  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
177        IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_S( iMin, iMax,        IF ( useAIM ) CALL AIM_TENDENCY_APPLY_S( iMin, iMax,
178       &                   jMin, jMax,bi,bj,kLev,       &                   jMin, jMax,bi,bj,kLev,
179       &                   myCurrentTime, myThid )       &                   myCurrentTime, myThid )
180  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22