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

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

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

revision 1.3 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.3.6.1 by heimbach, Tue Jun 24 23:05:29 2003 UTC
# Line 38  C     msgBuf      - Informational/error Line 38  C     msgBuf      - Informational/error
38  CEOP  CEOP
39    
40        WRITE(msgBuf,'(A,A,A)')        WRITE(msgBuf,'(A,A,A)')
41       &  'Run-time control flag use_',msg,' was used'       &  'Run-time control flag use',msg,' was used'
42        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
43        WRITE(msgBuf,'(A,A,A)') 'when CPP flag ALLOW_',msg,' was unset'        WRITE(msgBuf,'(A,A,A)') 'when CPP flag ALLOW_',msg,' was unset'
44        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
45        STOP 'ABNORMAL END: S/R PACKAGE_CHECK_ERROR'        STOP 'ABNORMAL END: S/R PACKAGE_CHECK_ERROR'
46    
47        return        RETURN
48        end        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.6.1
  ViewVC Help
Powered by ViewVC 1.1.22