377dcd10b9
Former-commit-id:9f19e3f712[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:06a8b51d6dFormer-commit-id:3360eb6c5f
61 lines
1.5 KiB
C
61 lines
1.5 KiB
C
/* include file containing all AODT library global variables */
|
|
#include "../inc/odtlib.h"
|
|
/* include file containing all AODT library variable definitions */
|
|
#include "../inc/odtlibdefs-x.h"
|
|
|
|
int aodtv64_getdomain( int *domain )
|
|
/* return current ocean domain variable to application from AODT library
|
|
Inputs : none
|
|
Outputs: AODT library ocean domain flag
|
|
Return : 72 : automatically determined storm basin
|
|
73 : manually determined storm basin
|
|
*/
|
|
{
|
|
int iret;
|
|
|
|
/* set ocean domain flag to return variable */
|
|
*domain=idomain_v64;
|
|
if(ixdomain_v64==0) {
|
|
iret=72;
|
|
} else {
|
|
iret=73;
|
|
}
|
|
|
|
return iret;
|
|
}
|
|
|
|
int aodtv64_setdomain( int indomain )
|
|
/* set current ocean domain variable within AODT library memory
|
|
Inputs : domain flag value from input
|
|
Outputs: none
|
|
Return : -81 : error deterimining storm basin
|
|
*/
|
|
{
|
|
int domain;
|
|
float xlon;
|
|
|
|
/* obtain current storm center longitude */
|
|
xlon=odtcurrent_v64->IR.longitude;
|
|
|
|
|
|
if((xlon<-180.0)||(xlon>180.0)) return -81;
|
|
|
|
ixdomain_v64=indomain;
|
|
/* determine oceanic domain */
|
|
if(indomain==0) {
|
|
/* automatically determined storm basin */
|
|
if(xlon>=0.0) {
|
|
domain=0; /* atlantic and east pacific to 180W/dateline */
|
|
} else {
|
|
domain=1; /* west pacific and other regions */
|
|
}
|
|
} else {
|
|
/* manually determined storm basin */
|
|
domain=indomain-1;
|
|
}
|
|
|
|
/* assign ocean domain flag value to AODT library variable */
|
|
idomain_v64=domain;
|
|
|
|
return 0;
|
|
}
|