/[MITgcm]/MITgcm/pkg/offline/offline_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/offline/offline_init_varia.F

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

revision 1.2 by heimbach, Sat Oct 10 21:28:20 2009 UTC revision 1.3 by jmc, Wed Apr 20 03:13:54 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "OFFLINE_OPTIONS.h"
 #include "PACKAGES_CONFIG.h"  
5    
6  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
7        SUBROUTINE OFFLINE_INIT_VARIA( myThid )        SUBROUTINE OFFLINE_INIT_VARIA( myThid )
# Line 29  C     i,j,k,bi,bj  :: loop indices Line 28  C     i,j,k,bi,bj  :: loop indices
28    
29        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
30          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
31              offlineLdRec(bi,bj) = 0
32            DO k=1,Nr            DO k=1,Nr
33              DO j=1-Oly,sNy+OLy              DO j=1-Oly,sNy+OLy
34                DO i=1-Olx,sNx+Olx                DO i=1-Olx,sNx+Olx
# Line 41  C     i,j,k,bi,bj  :: loop indices Line 41  C     i,j,k,bi,bj  :: loop indices
41                   gmkx0(i,j,k,bi,bj) = 0. _d 0                   gmkx0(i,j,k,bi,bj) = 0. _d 0
42                   gmky0(i,j,k,bi,bj) = 0. _d 0                   gmky0(i,j,k,bi,bj) = 0. _d 0
43                   gmkz0(i,j,k,bi,bj) = 0. _d 0                   gmkz0(i,j,k,bi,bj) = 0. _d 0
44  c                   kdfs0(i,j,k,bi,bj) = 0. _d 0
45                     kght0(i,j,k,bi,bj) = 0. _d 0
46    C
47                   save1(i,j,k,bi,bj) = 0. _d 0                   save1(i,j,k,bi,bj) = 0. _d 0
48                   tave1(i,j,k,bi,bj) = 0. _d 0                   tave1(i,j,k,bi,bj) = 0. _d 0
49                   uvel1(i,j,k,bi,bj) = 0. _d 0                   uvel1(i,j,k,bi,bj) = 0. _d 0
# Line 51  c Line 53  c
53                   gmkx1(i,j,k,bi,bj) = 0. _d 0                   gmkx1(i,j,k,bi,bj) = 0. _d 0
54                   gmky1(i,j,k,bi,bj) = 0. _d 0                   gmky1(i,j,k,bi,bj) = 0. _d 0
55                   gmkz1(i,j,k,bi,bj) = 0. _d 0                   gmkz1(i,j,k,bi,bj) = 0. _d 0
56                     kdfs1(i,j,k,bi,bj) = 0. _d 0
57                     kght1(i,j,k,bi,bj) = 0. _d 0
58                ENDDO                ENDDO
59              ENDDO              ENDDO
60            ENDDO            ENDDO
# Line 58  c Line 62  c
62              DO i=1-Olx,sNx+Olx              DO i=1-Olx,sNx+Olx
63                   hflx0(i,j,bi,bj) = 0. _d 0                   hflx0(i,j,bi,bj) = 0. _d 0
64                   sflx0(i,j,bi,bj) = 0. _d 0                   sflx0(i,j,bi,bj) = 0. _d 0
65                     icem0(i,j,bi,bj) = 0. _d 0
66    C
67                   hflx1(i,j,bi,bj) = 0. _d 0                   hflx1(i,j,bi,bj) = 0. _d 0
68                   sflx1(i,j,bi,bj) = 0. _d 0                   sflx1(i,j,bi,bj) = 0. _d 0
69                     icem1(i,j,bi,bj) = 0. _d 0
70              ENDDO              ENDDO
71            ENDDO            ENDDO
72          ENDDO          ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22