/[MITgcm]/MITgcm/model/src/ini_salt.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_salt.F

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

revision 1.5 by cnh, Mon Jun 15 05:13:56 1998 UTC revision 1.6 by cnh, Sat Aug 22 17:51:08 1998 UTC
# Line 51  C     I,J,K Line 51  C     I,J,K
51  C--    Initialise salinity field to the vertical reference profile  C--    Initialise salinity field to the vertical reference profile
52         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
53          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
54           DO K=1,Nz           DO K=1,Nr
55            DO J=1,sNy            DO J=1,sNy
56             DO I=1,sNx             DO I=1,sNx
57              salt(I,J,K,bi,bj) = sRef(K)              salt(I,J,K,bi,bj) = sRef(K)
# Line 68  C--    Initialise salinity field to the Line 68  C--    Initialise salinity field to the
68  C     Set initial tendency terms  C     Set initial tendency terms
69        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
70         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
71          DO K=1,Nz          DO K=1,Nr
72           DO J=1,sNy           DO J=1,sNy
73            DO I=1,sNx            DO I=1,sNx
74             gs   (I,J,K,bi,bj) = 0. _d 0             gs   (I,J,K,bi,bj) = 0. _d 0
# Line 83  C Line 83  C
83        _EXCH_XYZ_R8(gs , myThid )        _EXCH_XYZ_R8(gs , myThid )
84        _EXCH_XYZ_R8(gsNM1 , myThid )        _EXCH_XYZ_R8(gsNM1 , myThid )
85    
86        CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nz, 1, myThid )        CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid )
87    
88        RETURN        RETURN
89        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22