Subroutine Oper_Emergency 1,6OP_EMER1.21
OP_EMER1.22
IMPLICIT NONE OP_EMER1.23
! OP_EMER1.24
! Method: Reset UMUI determined namelist items to alternate OP_EMER1.25
! predetermined values dependent on value of Environment OP_EMER1.26
! variables known to the operational suite OP_EMER1.27
! OP_EMER1.28
! Current Code Owner: Tim Westmacott OP_EMER1.29
! OP_EMER1.30
! History: OP_EMER1.31
! version date comment OP_EMER1.32
! ------- ---- ------- OP_EMER1.33
! 4.5 3/09/98 New. Stuart Bell OP_EMER1.34
! OP_EMER1.35
! Language: FORTRAN 77 + common extensions. OP_EMER1.36
! This code is written to UMDP3 v6 programming standards. OP_EMER1.37
! OP_EMER1.38
! System component covered: Control OP_EMER1.39
! OP_EMER1.40
! Declarations: OP_EMER1.41
! OP_EMER1.42
! Global variables (*CALLed COMDECKs etc...): OP_EMER1.43
*CALL CMAXSIZE 
OP_EMER1.44
*CALL CSUBMODL OP_EMER1.45
*CALL CHSUNITS OP_EMER1.46
*CALL CCONTROL OP_EMER1.47
*CALL CRUNTIMC OP_EMER1.48
*IF DEF,MPP OP_EMER1.49
*CALL PARVARS OP_EMER1.50
*ELSE OP_EMER1.51
INTEGER mype OP_EMER1.52
PARAMETER (mype = 0 ) ! always zero in non-MPP code OP_EMER1.53
*ENDIF OP_EMER1.54
OP_EMER1.55
! Local scalars: OP_EMER1.56
INTEGER ICODE ! return code from FORT_GET_ENV OP_EMER1.57
CHARACTER*80 ONLYTO3 ! value of EV MES SHORT RUN OP_EMER1.58
CHARACTER*80 ONLYTO6 ! value of EV GL SHORT RUN OP_EMER1.59
CHARACTER*80 ONLYTO24 ! value of EV FOAM SHORT RUN OP_EMER1.60
CHARACTER*80 ONLYTO72 ! value of EV GL 3DAY RUN OP_EMER1.61
CHARACTER*80 FASTRUN ! value of EV FASTRUN OP_EMER1.62
CHARACTER*80 SHORTSTEP ! value of EV SHORTSTEP OP_EMER1.63
OP_EMER1.64
! Function & Subroutine calls: OP_EMER1.65
External FORT_GET_ENV OP_EMER1.66
OP_EMER1.67
! FASTRUN OP_EMER1.68
CALL FORT_GET_ENV('FASTRUN',7,FASTRUN,80,ICODE) OP_EMER1.69
if(FASTRUN.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.70
RUN_ASSIM_MODE='None' OP_EMER1.71
if(mype.eq.0)WRITE(6,*) OP_EMER1.72
& "FASTRUN=true, setting RUN_ASSIM_MODE=",RUN_ASSIM_MODE OP_EMER1.73
endif OP_EMER1.74
OP_EMER1.75
*IF DEF,ATMOS OP_EMER1.76
! SHORTSTEP OP_EMER1.77
CALL FORT_GET_ENV('SHORTSTEP',9,SHORTSTEP,80,ICODE) OP_EMER1.78
if(SHORTSTEP.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.79
WIND_LIMIT=0 OP_EMER1.80
if(mype.eq.0)WRITE(6,*) OP_EMER1.81
& "SHORTSTEP=true, setting WIND_LIMIT=",WIND_LIMIT OP_EMER1.82
endif OP_EMER1.83
OP_EMER1.84
*IF DEF,GLOBAL OP_EMER1.85
! ONLYTO72 for GL ATMOS plus 6 hour assm OP_EMER1.86
CALL FORT_GET_ENV('ONLYTO72',8,ONLYTO72,80,ICODE) OP_EMER1.87
if(ONLYTO72.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.88
RUN_TARGET_END(3)=3 !days OP_EMER1.89
RUN_TARGET_END(4)=6 !hours OP_EMER1.90
if(mype.eq.0)WRITE(6,*) OP_EMER1.91
& "ONLYTO72=true, setting RUN_TARGET_END=",RUN_TARGET_END OP_EMER1.92
endif OP_EMER1.93
OP_EMER1.94
! ONLYTO6 for GL ATMOS plus 6 hour assm OP_EMER1.95
CALL FORT_GET_ENV('ONLYTO6',7,ONLYTO6,80,ICODE) OP_EMER1.96
if(ONLYTO6.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.97
RUN_TARGET_END(3)=0 !days OP_EMER1.98
RUN_TARGET_END(4)=12 !hours OP_EMER1.99
if(mype.eq.0)WRITE(6,*) OP_EMER1.100
& "ONLYTO6=true, setting RUN_TARGET_END=",RUN_TARGET_END OP_EMER1.101
endif OP_EMER1.102
*ELSE OP_EMER1.103
! ONLYTO3 for MES ATMOS plus 3 hours assm OP_EMER1.104
CALL FORT_GET_ENV('ONLYTO3',7,ONLYTO3,80,ICODE) OP_EMER1.105
if(ONLYTO3.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.106
RUN_TARGET_END(3)=0 !days OP_EMER1.107
RUN_TARGET_END(4)=6 !hours OP_EMER1.108
if(mype.eq.0)WRITE(6,*) OP_EMER1.109
& "ONLYTO3=true, setting RUN_TARGET_END=",RUN_TARGET_END OP_EMER1.110
endif OP_EMER1.111
*ENDIF OP_EMER1.112
*ENDIF OP_EMER1.113
OP_EMER1.114
*IF DEF,OCEAN OP_EMER1.115
! ONLYTO24 for FOAM plus 1 day assm OP_EMER1.116
CALL FORT_GET_ENV('ONLYTO24',8,ONLYTO24,80,ICODE) OP_EMER1.117
if(ONLYTO24.eq.'true'.AND.ICODE.eq.0)then OP_EMER1.118
RUN_TARGET_END(3)=2 !days OP_EMER1.119
RUN_TARGET_END(4)=0 !hours OP_EMER1.120
if(mype.eq.0)WRITE(6,*) OP_EMER1.121
& "ONLYTO72=true, setting RUN_TARGET_END=",RUN_TARGET_END OP_EMER1.122
endif OP_EMER1.123
*ENDIF OP_EMER1.124
OP_EMER1.125
RETURN OP_EMER1.126
END OP_EMER1.127
*ENDIF OP_EMER1.128