/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_check.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_check.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:25 2011 UTC revision 1.2 by jahn, Wed Dec 4 21:17:46 2013 UTC
# Line 39  C     msgBuf      - Informational/error Line 39  C     msgBuf      - Informational/error
39        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
40       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
41    
42        if ( nDarwin .GT. PTRACERS_num ) THEN        if ( nDarwin .GT. PTRACERS_numInUse ) THEN
43          WRITE(msgBuf,'(A,I5,A,I5)')          WRITE(msgBuf,'(A,I5,A,I5)')
44       &    'MONOD_CHECK: ERROR: nDarwin > PTRACERS_num: ',       &    'MONOD_CHECK: ERROR: nDarwin > PTRACERS_numInUse: ',
45       &    nDarwin,' vs ',PTRACERS_num       &    nDarwin,' vs ',PTRACERS_numInUse
46          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
47          STOP 'ABNORMAL END: S/R MONOD_CHECK'          STOP 'ABNORMAL END: S/R MONOD_CHECK'
48        ENDIF        ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22