/[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.39 by cnh, Mon Nov 7 18:26:02 2005 UTC revision 1.40 by heimbach, Tue Dec 13 19:47:39 2005 UTC
# Line 35  C     == Local variables == Line 35  C     == Local variables ==
35  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
36  C     I,J  C     I,J
37        INTEGER bi, bj        INTEGER bi, bj
38        INTEGER  I,  J        INTEGER  I, J, K
39  CEOP  CEOP
40    
41        _BARRIER        _BARRIER
# Line 87  CEOP Line 87  CEOP
87  #endif  #endif
88           ENDDO           ENDDO
89          ENDDO          ENDDO
90            DO k=1,Nr
91             DO j=1-OLy,sNy+OLy
92              DO i=1-OLx,sNx+OLx
93    #ifdef ALLOW_CLIMTEMP_RELAXATION
94               thetaStar (i,j,k,bi,bj) = 0. _d 0
95    #endif
96    #ifdef ALLOW_CLIMSALT_RELAXATION
97               saltStar  (i,j,k,bi,bj) = 0. _d 0
98    #endif
99              ENDDO
100             ENDDO
101            ENDDO
102         ENDDO         ENDDO
103        ENDDO        ENDDO
104  C  C
# Line 166  C-     Qnet is now (after c54) the net H Line 178  C-     Qnet is now (after c54) the net H
178         CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )         CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )
179        ENDIF        ENDIF
180  #endif  #endif
181    #ifdef ALLOW_CLIMTEMP_RELAXATION
182          IF ( hydrogThetaFile .NE. ' '  ) THEN
183           CALL READ_FLD_XYZ_RS(
184         &  hydrogThetaFile, ' ', thetaStar, 0, myThid )
185          ENDIF
186    #endif
187    #ifdef ALLOW_CLIMSALT_RELAXATION
188          IF ( hydrogSaltFile .NE. ' '  ) THEN
189           CALL READ_FLD_XYZ_RS(
190         &  hydrogSaltFile, ' ', saltStar, 0, myThid )
191          ENDIF
192    #endif
193    
194        _END_MASTER(myThid)        _END_MASTER(myThid)
195  C  C
196        _EXCH_XY_R4(fu   , myThid )        _EXCH_XY_R4(fu   , myThid )
# Line 184  C Line 209  C
209        _EXCH_XY_R4(pload  , myThid )        _EXCH_XY_R4(pload  , myThid )
210  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)
211  #endif  #endif
212    #ifdef ALLOW_CLIMTEMP_RELAXATION
213          _EXCH_XYZ_R4(thetaStar , myThid )
214    #endif
215    #ifdef ALLOW_CLIMSALT_RELAXATION
216          _EXCH_XYZ_R4(saltStar , myThid )
217    #endif
218  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)
219  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)
220    
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22