/[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.43 by jmc, Wed Oct 15 22:55:51 2003 UTC revision 1.44 by jmc, Wed Oct 29 00:19:22 2003 UTC
# Line 95  CEOP Line 95  CEOP
95       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
96        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
97       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
98        IF ( viscAz .NE. UNSET_RL ) THEN  c     IF ( viscAz .NE. UNSET_RL ) THEN
99         CALL WRITE_0D_R8( viscAz, INDEX_NONE,'viscAz =',  c      CALL WRITE_0D_R8( viscAz, INDEX_NONE,'viscAz =',
100       & '   /* Vertical eddy viscosity ( m^2/s ) */')  c    & '   /* Vertical eddy viscosity ( m^2/s ) */')
101        ENDIF  c     ENDIF
102        IF ( viscAp .NE. UNSET_RL ) THEN  c     IF ( viscAp .NE. UNSET_RL ) THEN
103         CALL WRITE_0D_R8( viscAp, INDEX_NONE,'viscAp =',  c      CALL WRITE_0D_R8( viscAp, INDEX_NONE,'viscAp =',
104       & '   /* Vertical eddy viscosity ( Pa^2/s ) */')  c    & '   /* Vertical eddy viscosity ( Pa^2/s ) */')
105        ENDIF  c     ENDIF
106        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
107       &'   /* Vertical eddy viscosity ( units of r^2/s ) */')       &'   /* Vertical eddy viscosity ( units of r^2/s ) */')
108        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',
109       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
110        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',
111       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')
112        CALL WRITE_0D_R8( diffKzT, INDEX_NONE,'diffKzT =',  c     CALL WRITE_0D_R8( diffKzT, INDEX_NONE,'diffKzT =',
113       &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')  c    &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')
114        CALL WRITE_0D_R8( diffKrT, INDEX_NONE,'diffKrT =',        CALL WRITE_0D_R8( diffKrT, INDEX_NONE,'diffKrT =',
115       &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')       &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')
116        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',
117       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')
118        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',
119       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')
120        CALL WRITE_0D_R8( diffKzS, INDEX_NONE,'diffKzS =',  c     CALL WRITE_0D_R8( diffKzS, INDEX_NONE,'diffKzS =',
121       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')  c    &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
122        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',
123       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
124        WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType        WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22