logical equal
equal = .true.
if ( equal ) then
if (equal) then
LOGICAL equal
equal = .TRUE.
IF ( equal ) THEN
equal = cal_CompDates(modelstartdate,mydate,mythid)
equal = cal_CompDates(modelenddate,mydate,mythid)