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

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

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

revision 1.37 by jmc, Sat Jun 15 03:28:39 2002 UTC revision 1.38 by jmc, Thu Jun 20 23:45:30 2002 UTC
# Line 120  C--   External thermal forcing term(s) o Line 120  C--   External thermal forcing term(s) o
120       I                          bi, bj, K,       I                          bi, bj, K,
121       U                          gT,       U                          gT,
122       I                          myThid )       I                          myThid )
123            IF ( tempAdamsBashforth )
124         &  CALL FREESURF_RESCALE_G(
125         I                          bi, bj, K,
126         U                          gTnm1,
127         I                          myThid )
128        ENDIF        ENDIF
129  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
130    
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22