/[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.61 by jmc, Sun Oct 17 23:03:38 2004 UTC revision 1.62 by jmc, Mon Oct 18 21:36:08 2004 UTC
# Line 81  C     zcoord :: Line 81  C     zcoord ::
81        WRITE(msgBuf,'(A,A40)') 'buoyancyRelation = ', buoyancyRelation        WRITE(msgBuf,'(A,A40)') 'buoyancyRelation = ', buoyancyRelation
82        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
83       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
84          CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
85         & 'fluidIsAir  =', '  /* fluid major constituent is Air */')
86          CALL WRITE_0D_L( fluidIsWater, INDEX_NONE,
87         & 'fluidIsWater=', '  /* fuild major constituent is Water */')
88          CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
89         & 'usingPCoords =', '  /* use p (or p*) vertical coordinate */')
90          CALL WRITE_0D_L( usingZCoords, INDEX_NONE,
91         & 'usingZCoords =', '  /* use z (or z*) vertical coordinate */')
92        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',
93       &'   /* Reference temperature profile ( oC or oK ) */')       &'   /* Reference temperature profile ( oC or oK ) */')
94        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',
# Line 144  C     zcoord :: Line 152  C     zcoord ::
152       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
153          ENDDO          ENDDO
154        ENDIF        ENDIF
155        IF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN        IF ( fluidIsAir ) THEN
156         CALL WRITE_0D_R8( atm_Rd, INDEX_NONE, 'atm_Rd =',         CALL WRITE_0D_R8( atm_Rd, INDEX_NONE, 'atm_Rd =',
157       & '  /* gas constant for dry air ( J/kg/K ) */')       & '  /* gas constant for dry air ( J/kg/K ) */')
158        CALL WRITE_0D_R8( atm_Cp, INDEX_NONE, 'atm_Cp =',        CALL WRITE_0D_R8( atm_Cp, INDEX_NONE, 'atm_Cp =',
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22