/[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.7 by cnh, Wed Jun 10 01:44:03 1998 UTC revision 1.8 by cnh, Fri Jun 12 19:33:33 1998 UTC
# Line 78  C          fu(i,j,bi,bj) = -tauMax Line 78  C          fu(i,j,bi,bj) = -tauMax
78          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
79           DO j=1,sNy           DO j=1,sNy
80            DO i=1,sNx            DO i=1,sNx
81             fu(i,j,bi,bj) = fu(i,j,bi,bj)/(delZ(1)*rhonil)             fu(i,j,bi,bj) = fu(i,j,bi,bj)/(delZ(1)*rhonil)*0.1
82            ENDDO            ENDDO
83           ENDDO           ENDDO
84          ENDDO          ENDDO
# Line 105  C Line 105  C
105          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
106           DO j=1,sNy           DO j=1,sNy
107            DO i=1,sNx            DO i=1,sNx
108             fv(i,j,bi,bj) = fv(i,j,bi,bj)/(delZ(1)*rhonil)             fv(i,j,bi,bj) = fv(i,j,bi,bj)/(delZ(1)*rhonil)*0.1
109            ENDDO            ENDDO
110           ENDDO           ENDDO
111          ENDDO          ENDDO
# Line 120  CcnhDebugStarts Line 120  CcnhDebugStarts
120  Cdbg  WRITE(0,*) ' distY = ', distY  Cdbg  WRITE(0,*) ' distY = ', distY
121  Cdbg  WRITE(0,*) '    ly = ', lY  Cdbg  WRITE(0,*) '    ly = ', lY
122  Cdbg  WRITE(0,*) ' tauMax= ', tauMax  Cdbg  WRITE(0,*) ' tauMax= ', tauMax
123  Cdbg  CALL PLOT_FIELD_XYR8( fu, 'INI_FORCING FU',1,myThid)        CALL PLOT_FIELD_XYR8( fu, 'INI_FORCING FU',1,myThid)
124          CALL PLOT_FIELD_XYR8( fv, 'INI_FORCING FV',1,myThid)
125  Cdbg  STOP 'INI_FORCING'  Cdbg  STOP 'INI_FORCING'
126  CcnhDebugEnds  CcnhDebugEnds
127    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22