/[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.102 by jmc, Fri Jan 18 21:23:28 2008 UTC revision 1.103 by mlosch, Tue Feb 5 13:32:49 2008 UTC
# Line 632  c    &'   /* W spacing ( units of r ) */ Line 632  c    &'   /* W spacing ( units of r ) */
632       &  ' /* convert units: wSpeed -> rVel (=1 if z-coord)*/')       &  ' /* convert units: wSpeed -> rVel (=1 if z-coord)*/')
633        CALL WRITE_1D_R8( dBdrRef, Nr, INDEX_K,'dBdrRef = ',        CALL WRITE_1D_R8( dBdrRef, Nr, INDEX_K,'dBdrRef = ',
634       & ' /* Vertical gradient of reference boyancy [(m/s/r)^2)] */')       & ' /* Vertical gradient of reference boyancy [(m/s/r)^2)] */')
635          CALL WRITE_0D_L( rotateGrid, INDEX_NONE,
636         & 'rotateGrid =',' /* use rotated grid ( True/False ) */')
637          CALL WRITE_0D_R8( mass2rUnit, INDEX_NONE,'phiEuler =',
638         &' /* Euler angle, rotation about original z-coordinate [rad] */')
639          CALL WRITE_0D_R8( mass2rUnit, INDEX_NONE,'thetaEuler =',
640         & ' /* Euler angle, rotation about new x-coordinate [rad] */')
641          CALL WRITE_0D_R8( mass2rUnit, INDEX_NONE,'psiEuler =',
642         & ' /* Euler angle, rotation about new z-coordinate [rad] */')
643    
644  C     Grid along selected grid lines  C     Grid along selected grid lines
645        coordLine = 1        coordLine = 1
Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103
  ViewVC Help
Powered by ViewVC 1.1.22