/[MITgcm]/MITgcm/compare01/src/update_s.F
ViewVC logotype

Diff of /MITgcm/compare01/src/update_s.F

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

revision 1.1 by cnh, Mon May 25 20:21:06 1998 UTC revision 1.2 by cnh, Mon Jun 15 05:13:55 1998 UTC
# Line 331  C     _D(( ' S/R UPDATE_S (GtDiff+GtAdv) Line 331  C     _D(( ' S/R UPDATE_S (GtDiff+GtAdv)
331  C     /---------------------------------------------------------------\  C     /---------------------------------------------------------------\
332  C     | gT <- gT + GtForcing                                          |  C     | gT <- gT + GtForcing                                          |
333  C     \---------------------------------------------------------------/  C     \---------------------------------------------------------------/
334        IF ( K.EQ.1 .OR. K.EQ.2 ) THEN  C     IF ( K.EQ.1 ) THEN
335  C      DO J =1,Ny                                                C      DO J =1,Ny                                              
336  C       DO I=1, Nx                                              C       DO I=1, Nx                                            
337  C        gT(_I3(K,I,J)) = gT(_I3(K,I,J)) -  C        gT(_I3(K,I,J)) = gT(_I3(K,I,J)) -
338  C    &                    1./(30.*oneDay)*( T(_I3(K,I,J)) - Ssurf(I,J,K) )  C    &                    1./(30.*oneDay)*( T(_I3(K,I,J)) - Ssurf(I,J,K) )
339  C       ENDDO  C       ENDDO
340  C      ENDDO  C      ENDDO
341        ENDIF  C     ENDIF
342    
343  C     _D(( ' S/R UPDATE_S (Gt Section): MAXVAL(Gt  )', MAXVAL(Gt)  ))  C     _D(( ' S/R UPDATE_S (Gt Section): MAXVAL(Gt  )', MAXVAL(Gt)  ))
344  C     _D(( ' S/R UPDATE_S (Gt Section): MINVAL(Gt  )', MINVAL(Gt)  ))  C     _D(( ' S/R UPDATE_S (Gt Section): MINVAL(Gt  )', MINVAL(Gt)  ))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22