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

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

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

revision 1.6.2.1 by cnh, Fri Jun 19 04:55:13 1998 UTC revision 1.6.2.2 by cnh, Sat Jun 20 21:04:59 1998 UTC
# Line 97  C           the theta* scheme used. Line 97  C           the theta* scheme used.
97           DO J=1,sNy           DO J=1,sNy
98            DO I=1,sNx            DO I=1,sNx
99             gt   (I,J,K,bi,bj) = 0. _d 0             gt   (I,J,K,bi,bj) = 0. _d 0
100             gtNM1(I,J,K,bi,bj) = theta(I,J,K,bi,bj)             gtNM1(I,J,K,bi,bj) = 0. _d 0
101            ENDDO            ENDDO
102           ENDDO           ENDDO
103          ENDDO          ENDDO
Legend:
Removed from v.1.6.2.1  
changed lines
  Added in v.1.6.2.2
  ViewVC Help
Powered by ViewVC 1.1.22