/[MITgcm]/MITgcm/verification/natl_box/code/external_fields_load.F
ViewVC logotype

Diff of /MITgcm/verification/natl_box/code/external_fields_load.F

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

revision 1.2 by heimbach, Tue Nov 14 03:45:06 2000 UTC revision 1.3 by adcroft, Wed Nov 29 22:29:23 2000 UTC
# Line 182  C--   Interpolate fu,fv,Qnet,EmPmR,SST,S Line 182  C--   Interpolate fu,fv,Qnet,EmPmR,SST,S
182       &                       +aWght*SST1(i,j,bi,bj)       &                       +aWght*SST1(i,j,bi,bj)
183            SSS(i,j,bi,bj)   = bWght*SSS0(i,j,bi,bj)              SSS(i,j,bi,bj)   = bWght*SSS0(i,j,bi,bj)  
184       &                       +aWght*SSS1(i,j,bi,bj)       &                       +aWght*SSS1(i,j,bi,bj)
185            fu(i,j,bi,bj)    = bWght*taux0(i,j,bi,bj)            fu(i,j,bi,bj)    = -(bWght*taux0(i,j,bi,bj)
186       &                       +aWght*taux1(i,j,bi,bj)       &                       +aWght*taux1(i,j,bi,bj))
187            fv(i,j,bi,bj)    = bWght*tauy0(i,j,bi,bj)            fv(i,j,bi,bj)    = -(bWght*tauy0(i,j,bi,bj)
188       &                       +aWght*tauy1(i,j,bi,bj)       &                       +aWght*tauy1(i,j,bi,bj))
189            Qnet(i,j,bi,bj)  = bWght*Qnet0(i,j,bi,bj)            Qnet(i,j,bi,bj)  = bWght*Qnet0(i,j,bi,bj)
190       &                       +aWght*Qnet1(i,j,bi,bj)       &                       +aWght*Qnet1(i,j,bi,bj)
191            EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj)            EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj)
# Line 199  C--   Interpolate fu,fv,Qnet,EmPmR,SST,S Line 199  C--   Interpolate fu,fv,Qnet,EmPmR,SST,S
199         ENDDO         ENDDO
200        ENDDO        ENDDO
201    
 C     Convert units and signs  
       CALL EXTERNAL_FIELDS_SCALE( myThid )  
   
202  C endif for periodicForcing  C endif for periodicForcing
203        ENDIF        ENDIF
204    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22