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

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

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

revision 1.12 by cnh, Wed Aug 19 14:20:27 1998 UTC revision 1.13 by cnh, Sat Aug 22 17:51:07 1998 UTC
# Line 36  C     == Local variables == Line 36  C     == Local variables ==
36        INTEGER                  bi, bj        INTEGER                  bi, bj
37        REAL                     xcoord(Nx)        REAL                     xcoord(Nx)
38        REAL                     ycoord(Ny)        REAL                     ycoord(Ny)
39        REAL                     zcoord(Nz)        REAL                     rcoord(Nr)
40    
41    
42        _BARRIER        _BARRIER
# Line 58  C     == Local variables == Line 58  C     == Local variables ==
58        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
59        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
60        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
61        CALL WRITE_1D_R8( tRef, Nz, INDEX_K,'tRef =',        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',
62       &'   /* Reference temperature profile ( oC or oK ) */')       &'   /* Reference temperature profile ( oC or oK ) */')
63        CALL WRITE_1D_R8( sRef, Nz, INDEX_K,'sRef =',        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',
64       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( ppt ) */')
65        CALL WRITE_1D_R8( viscAh, 1, INDEX_NONE,'viscAh =',        CALL WRITE_1D_R8( viscAh, 1, INDEX_NONE,'viscAh =',
66       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
# Line 183  C     == Local variables == Line 183  C     == Local variables ==
183       &'   /* Cartesian coordinates flag ( True / False ) */')       &'   /* Cartesian coordinates flag ( True / False ) */')
184        CALL WRITE_1D_L( usingSphericalPolarGrid,1, INDEX_NONE,'usingSphericalPolarGrid =',        CALL WRITE_1D_L( usingSphericalPolarGrid,1, INDEX_NONE,'usingSphericalPolarGrid =',
185       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
186        CALL WRITE_1D_R8( delZ,Nz, INDEX_K,'delZ = ',        CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
187       &'   /* W spacing ( m ) */')       &'   /* W spacing ( m ) */')
188        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',
189       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')
# Line 209  C     == Local variables == Line 209  C     == Local variables ==
209        ENDDO        ENDDO
210        CALL WRITE_1D_R8( ycoord, sNy*nSy, INDEX_J,'ycoord = ',        CALL WRITE_1D_R8( ycoord, sNy*nSy, INDEX_J,'ycoord = ',
211       &'   /* P-point Y coordinate (  m - cartesian, degrees - spherical ) */')       &'   /* P-point Y coordinate (  m - cartesian, degrees - spherical ) */')
212        DO K=1,Nz        DO K=1,Nr
213         zcoord(K) = zc(K)         rcoord(K) = rc(K)
214        ENDDO        ENDDO
215        CALL WRITE_1D_R8( zcoord, Nz, INDEX_K,'zcoord = ',        CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ',
216       &'   /* P-point Z coordinate (  m ) */')       &'   /* P-point R coordinate (  units of r ) */')
217    
218    
219    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22