/[MITgcm]/MITgcm/pkg/ctrl/ctrl_check.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_check.F

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

revision 1.2 by heimbach, Mon Jun 23 22:29:05 2003 UTC revision 1.3 by edhill, Mon Jul 21 14:25:43 2003 UTC
# Line 45  C     Can't have both atmos. state and f Line 45  C     Can't have both atmos. state and f
45    
46  #if (defined (ALLOW_HFLUX_CONTROL) && defined (ALLOW_ATEMP_CONTROL))  #if (defined (ALLOW_HFLUX_CONTROL) && defined (ALLOW_ATEMP_CONTROL))
47        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
48       &     'Can't have both ALLOW_HFLUX_CONTROL & ALLOW_ATEMP_CONTROL'       &     'Cannot have both ALLOW_HFLUX_CONTROL & ALLOW_ATEMP_CONTROL'
49        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
50        STOP 'ABNORMAL END: S/R CTRL_CHECK'        STOP 'ABNORMAL END: S/R CTRL_CHECK'
51  #endif  #endif
52    
53  #if (defined (ALLOW_SFLUX_CONTROL) && defined (ALLOW_AQH_CONTROL))  #if (defined (ALLOW_SFLUX_CONTROL) && defined (ALLOW_AQH_CONTROL))
54        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
55       &     'Can't have both ALLOW_SFLUX_CONTROL & ALLOW_AQH_CONTROL'       &     'Cannot have both ALLOW_SFLUX_CONTROL & ALLOW_AQH_CONTROL'
56        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
57        STOP 'ABNORMAL END: S/R CTRL_CHECK'        STOP 'ABNORMAL END: S/R CTRL_CHECK'
58  #endif  #endif
59    
60  #if (defined (ALLOW_USTRESS_CONTROL) && defined (ALLOW_UWIND_CONTROL))  #if (defined (ALLOW_USTRESS_CONTROL) && defined (ALLOW_UWIND_CONTROL))
61        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
62       &     'Can't have both ALLOW_USTRESS_CONTROL & ALLOW_UWIND_CONTROL'       &     'Cannot have both ALLOW_USTRESS_CONTROL & ALLOW_UWIND_CONTROL'
63        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
64        STOP 'ABNORMAL END: S/R CTRL_CHECK'        STOP 'ABNORMAL END: S/R CTRL_CHECK'
65  #endif  #endif
66    
67  #if (defined (ALLOW_VSTRESS_CONTROL) && defined (ALLOW_VWIND_CONTROL))  #if (defined (ALLOW_VSTRESS_CONTROL) && defined (ALLOW_VWIND_CONTROL))
68        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
69       &     'Can't have both ALLOW_VSTRESS_CONTROL & ALLOW_VWIND_CONTROL'       &     'Cannot have both ALLOW_VSTRESS_CONTROL & ALLOW_VWIND_CONTROL'
70        CALL PRINT_ERROR( msgBuf , 1)        CALL PRINT_ERROR( msgBuf , 1)
71        STOP 'ABNORMAL END: S/R CTRL_CHECK'        STOP 'ABNORMAL END: S/R CTRL_CHECK'
72  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22