/[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.8 by cnh, Fri Jun 12 19:33:33 1998 UTC revision 1.9 by cnh, Mon Jun 15 05:13:56 1998 UTC
# Line 79  C          fu(i,j,bi,bj) = -tauMax Line 79  C          fu(i,j,bi,bj) = -tauMax
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)*0.1             fu(i,j,bi,bj) = fu(i,j,bi,bj)/(delZ(1)*rhonil)*0.1
82               fu(i,j,bi,bj) = 0.1/(delZ(1)*rhonil)
83            ENDDO            ENDDO
84           ENDDO           ENDDO
85          ENDDO          ENDDO
# Line 105  C Line 106  C
106          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
107           DO j=1,sNy           DO j=1,sNy
108            DO i=1,sNx            DO i=1,sNx
109             fv(i,j,bi,bj) = fv(i,j,bi,bj)/(delZ(1)*rhonil)*0.1             fv(i,j,bi,bj) = fv(i,j,bi,bj)/(delZ(1)*rhonil)*0.
110            ENDDO            ENDDO
111           ENDDO           ENDDO
112          ENDDO          ENDDO
# Line 116  C Line 117  C
117        _EXCH_XY_R4(fu  , myThid )        _EXCH_XY_R4(fu  , myThid )
118        _EXCH_XY_R4(fv  , myThid )        _EXCH_XY_R4(fv  , myThid )
119    
120  CcnhDebugStarts        CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)
121  Cdbg  WRITE(0,*) ' distY = ', distY        CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)
 Cdbg  WRITE(0,*) '    ly = ', lY  
 Cdbg  WRITE(0,*) ' tauMax= ', tauMax  
       CALL PLOT_FIELD_XYR8( fu, 'INI_FORCING FU',1,myThid)  
       CALL PLOT_FIELD_XYR8( fv, 'INI_FORCING FV',1,myThid)  
 Cdbg  STOP 'INI_FORCING'  
 CcnhDebugEnds  
122    
123        RETURN        RETURN
124        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22