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

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

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

revision 1.37 by adcroft, Tue Dec 8 19:44:29 1998 UTC revision 1.38 by adcroft, Wed Dec 9 16:11:52 1998 UTC
# Line 14  C     | A production version needs to ha Line 14  C     | A production version needs to ha
14  C     | external file and possibly reading in some initial field |  C     | external file and possibly reading in some initial field |
15  C     | values.                                                  |  C     | values.                                                  |
16  C     \==========================================================/  C     \==========================================================/
17          IMPLICIT NONE
18    
19  C     === Global variables ===  C     === Global variables ===
20  #include "SIZE.h"  #include "SIZE.h"
# Line 362  C--   z,p,r coord input switching. Line 363  C--   z,p,r coord input switching.
363        ELSE        ELSE
364         recip_rhoConst = 1.D0 / rhoConst         recip_rhoConst = 1.D0 / rhoConst
365        ENDIF        ENDIF
366          IF ( rhoNil .LE. 0. ) THEN
367           WRITE(msgBuf,'(A)')
368         &  'S/R INI_PARMS: rhoNil must be greater than 0.'
369           CALL PRINT_ERROR( msgBuf , myThid)
370           STOP 'ABNORMAL END: S/R INI_PARMS'
371          ELSE
372           recip_rhoNil = 1.D0 / rhoNil
373          ENDIF
374        IF ( gravity .LE. 0. ) THEN        IF ( gravity .LE. 0. ) THEN
375         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
376       &  'S/R INI_PARMS: gravity must be greater than 0.'       &  'S/R INI_PARMS: gravity must be greater than 0.'
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22