/[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.42 by jmc, Thu Oct 26 00:32:07 2006 UTC revision 1.43 by jmc, Sun Apr 1 19:08:38 2007 UTC
# Line 168  C-     Qnet is now (after c54) the net H Line 168  C-     Qnet is now (after c54) the net H
168        ENDIF        ENDIF
169  #endif  #endif
170    
171        _EXCH_XY_R4(fu   , myThid )        CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid )
172        _EXCH_XY_R4(fv   , myThid )        CALL EXCH_XY_RS( Qnet , myThid )
173        _EXCH_XY_R4(Qnet , myThid )        CALL EXCH_XY_RS( EmPmR, myThid )
174        _EXCH_XY_R4(EmPmR, myThid )        CALL EXCH_XY_RS( saltFlux, myThid )
175        _EXCH_XY_R4( saltFlux, myThid )        CALL EXCH_XY_RS( SST  , myThid )
176        _EXCH_XY_R4(SST  , myThid )        CALL EXCH_XY_RS( SSS  , myThid )
177        _EXCH_XY_R4(SSS  , myThid )        CALL EXCH_XY_RS( lambdaThetaClimRelax, myThid )
178        _EXCH_XY_R4(lambdaThetaClimRelax , myThid )        CALL EXCH_XY_RS( lambdaSaltClimRelax , myThid )
       _EXCH_XY_R4(lambdaSaltClimRelax , myThid )  
179  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
180        _EXCH_XY_R4(Qsw  , myThid )        CALL EXCH_XY_RS(Qsw  , myThid )
181  #endif  #endif
182  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
183        _EXCH_XY_R4(pload  , myThid )        CALL EXCH_XY_RS(pload  , myThid )
184  C     CALL PLOT_FIELD_XYRS( pload, 'S/R INI_FORCING pload',1,myThid)  C     CALL PLOT_FIELD_XYRS( pload, 'S/R INI_FORCING pload',1,myThid)
185  #endif  #endif
186  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22