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

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

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

revision 1.10 by adcroft, Wed Jun 17 21:07:02 1998 UTC revision 1.11 by adcroft, Mon Jun 22 15:26:25 1998 UTC
# Line 70  C          tauX  = -tauMax*cos(2. _d 0*P Line 70  C          tauX  = -tauMax*cos(2. _d 0*P
70           ENDDO           ENDDO
71          ENDDO          ENDDO
72         ENDDO         ENDDO
73         fu(4,4,1,1) = fu(4,4,1,1)*0.917d0  C      fu(4,4,1,1) = fu(4,4,1,1)*0.917d0
74        ENDIF        ENDIF
75  C  C
76        _BARRIER        _BARRIER
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22