/[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.36 by jmc, Thu Sep 2 17:39:05 2004 UTC revision 1.37 by jmc, Tue Jan 4 15:57:22 2005 UTC
# Line 70  CEOP Line 70  CEOP
70            Qnet1           (i,j,bi,bj) = 0. _d 0            Qnet1           (i,j,bi,bj) = 0. _d 0
71            EmPmR0          (i,j,bi,bj) = 0. _d 0            EmPmR0          (i,j,bi,bj) = 0. _d 0
72            EmPmR1          (i,j,bi,bj) = 0. _d 0            EmPmR1          (i,j,bi,bj) = 0. _d 0
73              saltFlux0       (i,j,bi,bj) = 0. _d 0
74              saltFlux1       (i,j,bi,bj) = 0. _d 0
75            SST0            (i,j,bi,bj) = 0. _d 0            SST0            (i,j,bi,bj) = 0. _d 0
76            SST1            (i,j,bi,bj) = 0. _d 0            SST1            (i,j,bi,bj) = 0. _d 0
77            SSS0            (i,j,bi,bj) = 0. _d 0            SSS0            (i,j,bi,bj) = 0. _d 0
# Line 103  C Line 105  C
105        IF ( EmPmRfile .NE. ' '  ) THEN        IF ( EmPmRfile .NE. ' '  ) THEN
106         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )
107        ENDIF        ENDIF
108          IF ( saltFluxFile .NE. ' '  ) THEN
109           CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid )
110          ENDIF
111        IF ( thetaClimFile .NE. ' '  ) THEN        IF ( thetaClimFile .NE. ' '  ) THEN
112         CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid )         CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid )
113        ENDIF        ENDIF
# Line 137  C Line 142  C
142        _EXCH_XY_R4(fv   , myThid )        _EXCH_XY_R4(fv   , myThid )
143        _EXCH_XY_R4(Qnet , myThid )        _EXCH_XY_R4(Qnet , myThid )
144        _EXCH_XY_R4(EmPmR, myThid )        _EXCH_XY_R4(EmPmR, myThid )
145          _EXCH_XY_R4( saltFlux, myThid )
146        _EXCH_XY_R4(SST  , myThid )        _EXCH_XY_R4(SST  , myThid )
147        _EXCH_XY_R4(SSS  , myThid )        _EXCH_XY_R4(SSS  , myThid )
148  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22