/[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.40 by heimbach, Tue Dec 13 19:47:39 2005 UTC revision 1.41 by heimbach, Mon Jan 2 21:17:02 2006 UTC
# Line 87  CEOP Line 87  CEOP
87  #endif  #endif
88           ENDDO           ENDDO
89          ENDDO          ENDDO
         DO k=1,Nr  
          DO j=1-OLy,sNy+OLy  
           DO i=1-OLx,sNx+OLx  
 #ifdef ALLOW_CLIMTEMP_RELAXATION  
            thetaStar (i,j,k,bi,bj) = 0. _d 0  
 #endif  
 #ifdef ALLOW_CLIMSALT_RELAXATION  
            saltStar  (i,j,k,bi,bj) = 0. _d 0  
 #endif  
           ENDDO  
          ENDDO  
         ENDDO  
90         ENDDO         ENDDO
91        ENDDO        ENDDO
92  C  C
# Line 178  C-     Qnet is now (after c54) the net H Line 166  C-     Qnet is now (after c54) the net H
166         CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )         CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )
167        ENDIF        ENDIF
168  #endif  #endif
 #ifdef ALLOW_CLIMTEMP_RELAXATION  
       IF ( hydrogThetaFile .NE. ' '  ) THEN  
        CALL READ_FLD_XYZ_RS(  
      &  hydrogThetaFile, ' ', thetaStar, 0, myThid )  
       ENDIF  
 #endif  
 #ifdef ALLOW_CLIMSALT_RELAXATION  
       IF ( hydrogSaltFile .NE. ' '  ) THEN  
        CALL READ_FLD_XYZ_RS(  
      &  hydrogSaltFile, ' ', saltStar, 0, myThid )  
       ENDIF  
 #endif  
169    
170        _END_MASTER(myThid)        _END_MASTER(myThid)
171  C  C
# Line 209  C Line 185  C
185        _EXCH_XY_R4(pload  , myThid )        _EXCH_XY_R4(pload  , myThid )
186  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)
187  #endif  #endif
 #ifdef ALLOW_CLIMTEMP_RELAXATION  
       _EXCH_XYZ_R4(thetaStar , myThid )  
 #endif  
 #ifdef ALLOW_CLIMSALT_RELAXATION  
       _EXCH_XYZ_R4(saltStar , myThid )  
 #endif  
188  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)
189  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)
190    
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22