/[MITgcm]/MITgcm/pkg/shelfice/shelfice_check.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_check.F

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

revision 1.4 by jmc, Thu Jan 25 21:39:24 2007 UTC revision 1.5 by mlosch, Wed Oct 10 09:26:39 2007 UTC
# Line 14  C     === Global variables === Line 14  C     === Global variables ===
14  #include "SIZE.h"  #include "SIZE.h"
15  #include "EEPARAMS.h"  #include "EEPARAMS.h"
16  #include "PARAMS.h"  #include "PARAMS.h"
17    #include "SHELFICE.h"
18    
19  C     === Routine arguments ===  C     === Routine arguments ===
20  C     myThid -  Number of this instance of SHELFICE_CHECK  C     myThid -  Number of this instance of SHELFICE_CHECK
# Line 74  CML#endif ALLOW_KPP Line 75  CML#endif ALLOW_KPP
75         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
76         STOP 'ABNORMAL END: S/R SHELFICE_CHECK'         STOP 'ABNORMAL END: S/R SHELFICE_CHECK'
77        ENDIF        ENDIF
78    #else
79          IF ( useISOMIPTD ) THEN
80           IF ( SHELFICEconserve ) THEN
81            WRITE(msgBuf,'(A,A,A)')
82         &       'Run-time control flag SHELFICEconserve=.TRUE. was used'
83            CALL PRINT_ERROR( msgBuf, myThid )
84            WRITE(msgBuf,'(A,A,A)')
85         &       'when useISOMIPTD=.TRUE.; this does not work!'
86            CALL PRINT_ERROR( msgBuf, myThid )
87            STOP 'ABNORMAL END: S/R SHELFICE_CHECK'
88           ENDIF
89          ENDIF
90  #endif /* ALLOW_ISOMIP_TD */  #endif /* ALLOW_ISOMIP_TD */
91    
92        _END_MASTER(myThid)        _END_MASTER(myThid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22