/[MITgcm]/MITgcm_contrib/natl_12/code/external_forcing.F
ViewVC logotype

Diff of /MITgcm_contrib/natl_12/code/external_forcing.F

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

revision 1.3 by cnh, Wed Aug 6 22:14:53 2003 UTC revision 1.4 by cnh, Thu Aug 7 13:03:31 2003 UTC
# Line 86  C     tau = 1 day, 5days, 10days, 20days Line 86  C     tau = 1 day, 5days, 10days, 20days
86        recip_tauSp(5)   = 1./(86400.*60.)        recip_tauSp(5)   = 1./(86400.*60.)
87        jSouthBndy = 5        jSouthBndy = 5
88        jNorthBndy = ny-5+1        jNorthBndy = ny-5+1
89        DO j=jMin,jMax        DO j=1,sNy
90         DO i=iMin,iMax         DO i=iMin,iMax
91          jG = myYGlobalLo+(bj-1)*sNy+j-1          jG = myYGlobalLo+(bj-1)*sNy+j-1
92          jFromNBndy = jNorthBndy-jG          jFromNBndy = jNorthBndy-jG
# Line 204  C     tau = 1 day, 5days, 10days, 20days Line 204  C     tau = 1 day, 5days, 10days, 20days
204        recip_tauSp(5)   = 1./(86400.*60.)        recip_tauSp(5)   = 1./(86400.*60.)
205        jSouthBndy = 5        jSouthBndy = 5
206        jNorthBndy = ny-5+1        jNorthBndy = ny-5+1
207        DO j=jMin,jMax        DO j=1,sNy
208         DO i=iMin,iMax         DO i=iMin,iMax
209          jG = myYGlobalLo+(bj-1)*sNy+j-1          jG = myYGlobalLo+(bj-1)*sNy+j-1
210          jFromNBndy = jNorthBndy-jG          jFromNBndy = jNorthBndy-jG
# Line 349  C     tau = 1 day, 5days, 10days, 20days Line 349  C     tau = 1 day, 5days, 10days, 20days
349        recip_tauSp(5)   = 1./(86400.*60.)        recip_tauSp(5)   = 1./(86400.*60.)
350        jSouthBndy = 5        jSouthBndy = 5
351        jNorthBndy = ny-5+1        jNorthBndy = ny-5+1
352        DO j=jMin,jMax        DO j=1,sNy
353         DO i=iMin,iMax         DO i=iMin,iMax
354          jG = myYGlobalLo+(bj-1)*sNy+j-1          jG = myYGlobalLo+(bj-1)*sNy+j-1
355          jFromNBndy = jNorthBndy-jG          jFromNBndy = jNorthBndy-jG
# Line 444  C     Add fresh-water in top-layer Line 444  C     Add fresh-water in top-layer
444  C--   Forcing term  C--   Forcing term
445  C     Add freshening/salt in top-layer ( 90 day climatalogical average relaxation )  C     Add freshening/salt in top-layer ( 90 day climatalogical average relaxation )
446        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
447         curRecipTau=90./86400.         curRecipTau=1./(86400.*90.)
448         DO j=jMin,jMax         DO j=jMin,jMax
449          DO i=iMin,iMax          DO i=iMin,iMax
450           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
# Line 474  C     tau = 1 day, 5days, 10days, 20days Line 474  C     tau = 1 day, 5days, 10days, 20days
474        recip_tauSp(5)   = 1./(86400.*60.)        recip_tauSp(5)   = 1./(86400.*60.)
475        jSouthBndy = 5        jSouthBndy = 5
476        jNorthBndy = ny-5+1        jNorthBndy = ny-5+1
477        DO j=jMin,jMax        DO j=1,sNy
478         DO i=iMin,iMax         DO i=iMin,iMax
479          jG = myYGlobalLo+(bj-1)*sNy+j-1          jG = myYGlobalLo+(bj-1)*sNy+j-1
480          jFromNBndy = jNorthBndy-jG          jFromNBndy = jNorthBndy-jG
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22