/[MITgcm]/MITgcm/pkg/gridalt/gridalt_update.F
ViewVC logotype

Diff of /MITgcm/pkg/gridalt/gridalt_update.F

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

revision 1.7 by molod, Mon May 23 20:51:09 2005 UTC revision 1.8 by molod, Thu Jun 30 16:23:18 2005 UTC
# Line 31  c Line 31  c
31         integer i,j,L         integer i,j,L
32         logical  diagnostics_is_on         logical  diagnostics_is_on
33         external diagnostics_is_on         external diagnostics_is_on
34           _RL temparr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
35    
36         im1 = 1-OLx         im1 = 1-OLx
37         im2 = sNx+OLx         im2 = sNx+OLx
# Line 66  c Line 67  c
67  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
68         if(useDiagnostics) then         if(useDiagnostics) then
69          IF ( DIAGNOSTICS_IS_ON('DPPHYS  ',myThid) ) THEN          IF ( DIAGNOSTICS_IS_ON('DPPHYS  ',myThid) ) THEN
70           CALL DIAGNOSTICS_FILL(dpphys, 'DPPHYS  ',0,Nrphys,0,1,1,myThid)           do bj = myByLo(myThid), myByHi(myThid)
71             do bi = myBxLo(myThid), myBxHi(myThid)
72              do L = 1,Nrphys
73               do j = j1,j2
74               do i = i1,i2
75                temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1.e-2
76               enddo
77               enddo
78              enddo
79             enddo
80             enddo
81             CALL DIAGNOSTICS_FILL(temparr, 'DPPHYS  ',-1,Nrphys,0,1,1,myThid)
82          ENDIF          ENDIF
83         endif         endif
84  #endif  #endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22